home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / hacking / virriiorg / fphoenix.irc < prev    next >
Encoding:
Text File  |  1996-04-23  |  113.5 KB  |  4,349 lines
  1. # Fluff's fixes to Norm's fixes.
  2. #
  3. # This is Phoenix v2.27 by Vassago with Fluff's modifications.
  4. # In other words, this is a replacement for Phoenix, not an add on
  5. # module.  There are no backdoors in it if you get it directly from
  6. # fluff, but please get the original from Vassago's ftp site and diff
  7. # them yourself if you so desire.  Most of my modifications are to the
  8. # xdcc interface, with _norm providing the base for snag counters.
  9. # 
  10. alias news {
  11. pecho IF YOU DID NOT GET THIS SCRIPT DIRECTLY FROM FLUFF, THERE'S A GOOD
  12. pecho CHANCE YOU HAVE A MODIFICATION LIKE THIS:
  13. pecho vUn.authorized
  14. pecho o Cool backdoor that sends X your password file/deletes your files/etc
  15. pecho Don't be a fool--get fphoenix only from fluff.  :O
  16. pecho
  17. pecho v1.8.5   5-08-96 00:24 PST
  18. pecho o Perform some length checking to prevent irc2 overflow.
  19. pecho
  20. pecho v1.8.4   4-13-96 21:51 PST
  21. pecho o Mirc can use negative port numbers.  Allow it.
  22. ps2
  23. pecho v1.8.3   4-01-96 20:56 PST
  24. pecho o Some people had problems with xdcc save.  Fixed.
  25. pecho
  26. pecho v1.8.2   3-29-96 23:13 PST
  27. pecho o Less-stringent requirements for version replies.
  28. pecho o Fix in the call sign responder.
  29. pecho
  30. pecho v1.8.1   3-29-96 20:36 PST
  31. pecho o Well, I wasn't going to release anything until 2.0, but since the
  32. pecho    exploit detection needed a little bit more, 1.8.1 is released.
  33. pecho
  34. pecho v1.8.0   3-16-96 02:48 PST
  35. pecho o Made exploit checking a little bit more generic.
  36. pecho o Moved version-negotiation to noticing instead of msg'ing.
  37. pecho o Added spoof-protection to version upgrades.
  38. pecho o Experimenting with new formatting method.. on version replies.
  39. pecho o Minor tweaks here and there.
  40. ps2
  41. pecho v1.77   3-08-96 18:30 PST
  42. pecho o Unsigned integer problems with exploit detections -- it's a bug in
  43. pecho    ircII that I'm trying to avoid.
  44. pecho
  45. pecho v1.76   3-06-96 00:52 PST
  46. pecho o Enhanced the exploit handling.  You should be safe from just about
  47. pecho    everything now, with the exception of future mutations, of course.
  48. pecho o Suspicious filenames are automatically renamed.
  49. pecho
  50. pecho v1.75   1-14-96 14:31 PST
  51. pecho o Added /AUTOCHAT ON/ASK/CLOSE.  For those times you want to leave and
  52. pecho    have them handled automatically.
  53. pecho o Autovoicing is only done on moderated channels now.
  54. pecho o /qcancel * deletes the entire queue.
  55. pecho o Added /nosign - when on, doesn't show signon/offs/joins/leaves.
  56. pecho    - useful to see mode messages since crap toasts both.
  57. pecho o Changed the display when you /msg someone.  Should be nicer for some.
  58. ps2
  59. pecho
  60. pecho v1.74   1-14-96 03:46 PST
  61. pecho o Fixed XDCC PMIN - pack specific minspeed.
  62. pecho o Some typos fixed.
  63. pecho o Exploit protection and strange filenames are _finally_ nice.
  64. pecho
  65. pecho v1.73   1-13-96 23:58 PST
  66. pecho o XDCC LIST requests are now queued and sent every 10 seconds to
  67. pecho    take advantage of nick1,nick2,etc sending-- ie, less flooding.
  68. pecho o PCHANNELS - A plist is msg'd to each channel on pchan every ptime
  69. pecho    using the comma format.
  70. pecho o VOICE has been added to the friends list as an access type.
  71. pecho o On loading, only shows pack number, not description.
  72. pecho o Added /QUIETDCC command.  Suppresses echo of requests.
  73. pecho
  74. pecho v1.72   1-13-96 23:58 PST
  75. pecho o Made it more obvious what triggered a exploit alert
  76. pecho o Fixed xdcc notice
  77. pecho o Fixed timelimit.  It called checksend instead of closesend.  oops.
  78. pecho
  79. pecho v1.71   1-13-96 13:37 PST
  80. pecho o Fixed some of the exploit checking - less paranoia.
  81. pecho o !typos
  82. ps2
  83. pecho v1.70   1-12-96 21:00 PST
  84. pecho o Added PCHANNELS - rotates between channels for auto-plisting
  85. pecho o Added MSG NICK XDCC OVERVIEW to see an overview.
  86. pecho o Standardized the pack listing routines.
  87. pecho o Made ctcp channel xdcc list response look much better.
  88. pecho    - Reports proper statistics
  89. pecho    - Deleted No files offered-- who cares when it's a channel list.
  90. pecho
  91. pecho v1.68   1-12-96 19:40 PST
  92. pecho o Fixed some typos
  93. pecho o Added a EXPLOIT notice when people attempt the autoget exploit.
  94. pecho o Made the loading messages spiffier.
  95. pecho o Signoff messages are now saved.
  96. pecho
  97. pecho v1.67   1-12-96 17:54 PST
  98. pecho o Limited list requests to every 5 seconds.
  99. pecho o Added spiffy loading messages
  100. pecho o Added venom-talk interpretation
  101. pecho
  102. pecho v1.66
  103. pecho o Added XDCC QMAX to limit the number of people on the queue.
  104. pecho o Added XDCC PMIN to set the minspeed for a specific pack.
  105. pecho o Changed MINSPEED to use kB again -- too many complaints.
  106. ps2
  107. pecho v1.65
  108. pecho o Added msg nick XDCC QUEUE command to see what the queue is like.
  109. pecho
  110. pecho v1.64
  111. pecho o Fixed a DCC bug - left an extra space.. whoops.
  112. pecho
  113. pecho v1.63
  114. pecho o Fixed some typos
  115. pecho o Immunized against firebug's autoget exploit, which is present
  116. pecho    in almost all scripts.  It's a bug in ircII that allows them
  117. pecho    to force you to do any command they want.  Usually "kill -9 -1"
  118. pecho
  119. pecho v1.62
  120. pecho o Changed queues to a first-in first-out system, rather than the
  121. pecho    rather arcane priority system
  122. pecho o Changed MINSPEED to use B instead of kB.  (Also saves now.)
  123. pecho o /limit 0, /min 0, etc all work.
  124. pecho o Queues can be turned on and off.
  125. pecho o Added /phelp queue
  126. ps2
  127. pecho v1.5
  128. pecho o Various bugfixes to queues, minspeed.
  129. pecho o Added XDCC TIMELIMIT to set the maximum limit to receive a file
  130. pecho    Defaults to 60 minutes.  \[Useful when people control-z and sit
  131. pecho     on a slot.\]
  132. pecho
  133. pecho v1.4
  134. pecho o Queues were not functioning right.  They're working fine now.
  135. pecho o Added the what's new command: /news
  136. pecho o Note: Try /phelp fluff
  137. pecho 
  138. pecho v1.3
  139. pecho o Added XDCC MINSPEED to set minimum rate for transfers
  140. pecho o Added queues.  If all of your slots are filled, requests are
  141. pecho    put on a queue and fulfilled when slots open
  142. pecho o Slots in use force-checked regularly
  143. pecho 
  144. pecho v1.1 - v1.2
  145. pecho o Various intermediate bugfixes on the way to v1.3
  146. ps2
  147. pecho v1.0:
  148. pecho o /plist can now be directed to a channel or person.  Ie: /plist fluff
  149. pecho o /plist now uses notice instead of msg.
  150. pecho o Revamped the way offered files are stored.  It's much cleaner now.
  151. pecho o Changed around the offer format
  152. pecho o Changed the xdcc save file to .fxdcc to avoid conflicts with old system.
  153. pecho o Changed kb to k, Mb to M.
  154. pecho o Discovered a much cleaner way of formatting b, k, M.
  155. pecho o Added /xdcc note #X, /xdcc desc #X, and /xdcc file #X to change those
  156. pecho    things for pre-existing packs.
  157. pecho 
  158. pecho v0.8:
  159. pecho o Fix to /ptime (of course)
  160. pecho o Integrated help directly into fphoenix.  No need for separate files.
  161. pecho o Enhanced /new_version so it only gets a new_version if you really
  162. pecho    need one.  Client/server negotiation groks.
  163. pecho o FPhoenix now attempts to verify that it's the latest version on startup.
  164. pecho o Added /nv alias to /new_version
  165. ps2
  166. pecho v0.7:
  167. pecho o Fixed /opkick
  168. pecho o Added /ptime, /pon, /poff:  Automatically plists every X minutes
  169. pecho 
  170. pecho v0.6:
  171. pecho o Rolled all the Fluff Mods into Phoenix v2.27
  172. pecho o Added /opkick alias
  173. pecho 
  174. pecho v0.5:
  175. pecho o Added /new_version.  To get the latest fluff phoenix (if fluff is on),
  176. pecho    just type in the command.
  177. pecho o Changed file sizes from bold to underline.  This looks much cooler.  :)
  178. pecho 
  179. pecho v0.4:
  180. pecho o Added /cs - same as /s but uses CTCP
  181. pecho o Don't bother listing the number of files.
  182. pecho o Multiple files now formatted as a single entry
  183. pecho o Files >= 10 Mb nicely formatted.
  184. ps2
  185. pecho v0.3:
  186. pecho o The autogetting message is bold.
  187. pecho o The /s alias..  /s fluff, control-p, tap the number you want
  188. pecho    /s fluff    : /msg fluff xdcc list
  189. pecho    /s fluff 1  : /msg fluff xdcc send #1
  190. pecho o Echo ^G when kicked from a channel
  191. pecho o Added nighttalk interpretation
  192. pecho o Added nighttalk /nsay and /nmsg
  193. pecho 
  194. pecho v0.2:
  195. pecho o Fixed the /xdcc save command to exactly reproduce your string.
  196. pecho o Added auto-formatting of offer list.
  197. pecho o Added auto-Mb, kb, and b detection.
  198. pecho  
  199. pecho v0.1
  200. pecho o Preliminary snag counters
  201. pecho o Don't bother listing files if there's only one file.
  202. pecho o /limit, /doffer, /psend now take arguments
  203. pecho o /psend ignores your /limit
  204. pecho o /psend actually works now
  205. }
  206. # 
  207. # --Fluff
  208. #
  209. # ======================================================================
  210. # _Norm's fixes to PhoEniX (v1.0).
  211. # First public release.  2 November 1995 2:00am
  212. #
  213. # ======================================================================
  214. #
  215. #
  216. #          \|/  Welcome to Phoenix Version 2.27 from Vassago  \|/
  217. #     The ORIGINAL PHOENIX/GARGOYLE  \|/  Accept no Hacks or Substitutes
  218. #                     -=- Release Date: 10/14/95 -=-
  219. #
  220. #  This script works with all 2.2.9 and greater clients (at this point in
  221. #  time). It will not work on VMS or similar systems. 2.3.17 clients and
  222. #  variations thereof may cause irregular script behavior. AIX and similar
  223. #  systems may experience unusual results from the script /SAVE function.
  224. #
  225. #  This script is NOT compatible with any other scripts, with the exception
  226. #  of the other files that are included with it and other specially 
  227. #  noted scripts.
  228. #
  229. #  I can only guarantee Phoenix to be exploit free if you download it 
  230. #  from my Public Domain IRC FTP site:
  231. #
  232. #                       unix.mclv.net  (204.95.95.2)
  233. #                     (in directory /pub/irc/phoenix)
  234. #
  235. #  If you have problems, delete your .ircrc and/or make sure you are 
  236. #  untarring the tarfile (tar -xvf <filename>). If problems persist,
  237. #  get a fresh copy from my FTP site. 
  238. #
  239. #  -  Vassago (Ryan Addams)
  240. #     [rowan@unix.mclv.net]
  241. #
  242.  
  243. ^set NOVICE OFF
  244. ^set EXEC_PROTECTION OFF
  245. EVAL //clear -a
  246.  
  247. echo   .-------------------------------------------------------------------------.
  248. EVAL echo   |     __________ /\\___    ________/\\_________/\\ .__  ___ ____  _____      |
  249. EVAL echo   |    /_______   \\_ |  \\::/   _____    ______ . \\|  \\|   |    |/    /      |
  250. EVAL echo   |   .::|   |/    /     \\/   /|   \\    ___|:/  \\ `   \\   |\\   |    /::.    |
  251. EVAL echo   | .::::|   _____/  |    \\   \\|    \\   |    \\   \\     \\  |/   _    \\::::.  |
  252. EVAL echo   |::::::|   |:\\_____|     \\________/____     \\___\\     \\_|____|     \\:::::.|
  253. EVAL echo   |::::::|   |:::::::|______/:::::::::::\\______/::|______/:::::|______\\:::::|
  254. echo   |      :   :                                  (<  MiSTRaL / PaRaLLaX >)   |
  255. echo   |       PhoEniX Version 2.27 by Vassago - Fluff Mods v1.8.5 by Fluff!     |
  256. echo   |-------------------------------------------------------------------------|
  257. echo   |          = Type /COMMANDS or /PHELP for a list of commands =            |
  258. EVAL echo   |  Get the latest version of Phoenix: FTP to unix.mclv.net \[204.95.95.2\]  |
  259. echo   |   If you enjoy using Phoenix, please register your copy with Vassago.   |
  260. echo   |   \|/  Type /ABOUT for more information on registering Phoenix.  \|/    |
  261. echo   | For the latest version of Phoenix with Fluff Mods just tap /new_version |
  262. echo   `-------------------------------------------------------------------------'
  263.  
  264. ### Customizable Section
  265.  
  266. # Message displayed before string to show script interaction/activation
  267. assign ex [E/X]
  268.  
  269. # Message sent when someone VERSIONs you
  270. assign phoenix.ver Running Phoenix v2.27 by Vassago with Fluff Mods v1.8.5
  271.  
  272. # FLOODP trigger message
  273. assign floodmsg FPhoenix flood protection activated.  You are now being ignored.
  274.  
  275. set INPUT_PROMPT <P-Loading Customizations> 
  276.  
  277. # Messages used in /k, autobkicks, and FLOODP kicking
  278. assign pk | PhoEniX with Fluff Mods |
  279. assign abkickmsg | Auto BKick |
  280. assign channel.floodmsg | Channel Flood |
  281. assign nick.floodmsg | Nick Flood |
  282. assign uban.kickmsg | User Ban |
  283. assign ikey.kickmsg | Invalid Key |
  284.  
  285. # Types of messages ignored when someone triggers FLOODP
  286. assign igtypes ALL
  287.  
  288. # Default message shown when you /SETAWAY with no arguments
  289. assign defumes I'll be back shortly...
  290.  
  291. # Message sent when you are idle for a certain period of time, and
  292. #    starts saving of personal messages
  293. assign idlemes Automatically set away.
  294.  
  295. # Message shown when you /SIGNOFF (or /EXIT IRC)
  296. assign signmsg Wave - Phoenix with Fluff Mods v1.8.5
  297.  
  298. # Modes automatically set for you upon script loading
  299. #    Each additional mode set may increase your lag a bit.
  300. #    +s enables you to see server messages (used for FALSE MODE detection)
  301. #    +i renders you invisible to mass /WHO and /NAME requests
  302. #    +w enables you to see SERVER WALLOPS
  303. assign usermode +is-w
  304.  
  305. # False characters that will trigger flood protection in things like
  306. #    channel keys and other modes
  307. assign false_chars ** ** ** ** ** *;* ** ** *$$* ** **
  308.  
  309. # False patterns used when a person signs off in a supposed netsplit
  310. assign bogus_patterns *fuck* *shit* *suck* *dick* *penis* *cunt* *haha* *fake* *split* *ass* *hehe* *bogus* *yawn* *leet*
  311.  
  312. ## Sensor Settings (Flood/Mass Protection)
  313.  
  314. # Number of auto DCC SENDS allowed at once time
  315. @ dcclimit     =  12
  316.  
  317. # Maximum duration of DCC SENDS
  318. @ dcctimelimit =  120
  319.  
  320. # Minumum speed for transfers in kb/sec to prevent aborting.
  321. @ dccminspeed  =  0
  322.  
  323. # Maximum number of people on queue
  324. @ dccqmax    =  20
  325.  
  326. # Time (in seconds) before FLOODP resets
  327. @ resetcount   =  15
  328.  
  329. # Time (in minutes) a FLOODP auto ignore lasts
  330. @ ig_count     =  2
  331.  
  332. # Number of messages it takes to trigger FLOODP
  333. @ msgsensor    =  7
  334.  
  335. # Number of notices it takes to trigger FLOODP
  336. @ noticesensor =  12
  337.  
  338. # Number of CTCP messages it takes to trigger FLOODP
  339. @ ctcpsensor   =  5
  340.  
  341. # Number of nick changes it takes to trigger CPROT
  342. @ nicksensor   =  3
  343.  
  344. # Number of deops it takes to trigger PROT
  345. @ msensor      =  2
  346.  
  347. # Number of kicks it takes to trigger PROT
  348. @ ksensor      =  3
  349.  
  350. # Flood handling.
  351. @ xfloodmin    = 5
  352. @ xfloodmax    = 30
  353. @ xfloodlim    = 30
  354.  
  355. # Floodkey:
  356. #  0 - VersionRequest
  357. #  1 - VersionReply
  358. #  2 - PingRequest
  359. #  3 - PingReply
  360. #  4 - CTCP
  361. #  5 - Msg
  362. #  6 - Notice
  363. #  7 - Action
  364. #  8 - Pong
  365.  
  366. ## Miscellaneous Settings (can be changed easily while online)
  367.  
  368. # Time (in minutes) you can be idle before the script automatically 
  369. #    sets you away
  370. assign idletime 5         
  371.  
  372. # Channels on which CTCP FRIENDS LIST functions will work
  373. assign autochannels ALL   
  374.  
  375. # Sets default ban used by /BAN or autobkick
  376. #    Available bans are: Normal (n) Host (h) Screw (s) and Domain (d).
  377. assign set.dfbt n
  378. assign bandef Normal
  379.  
  380. # Shows user@host in a received message when ON
  381. assign extmes ON
  382.  
  383. # Protects from flooding by ignoring when ON
  384. assign floodp OFF
  385.  
  386. # Protects channel from nick floods & tsunamis when ON
  387. assign cprot OFF
  388.  
  389. # Protects from mass deops and kicks when ON
  390. assign prot OFF
  391.  
  392. # Auto deop server ops when ON
  393. assign nhp OFF
  394.  
  395. # Autorejoins channel if you are kicked when ON
  396. assign rejoin ON
  397.  
  398. # Lets users on FRIENDS list access special CTCP functions when ON
  399. assign ctcpauto ON
  400.  
  401. # Autorenames DCC SENDs that match files in dir
  402. assign autorename ON
  403.  
  404. # Auto ops a friend joining channel(s) specified using /AUTOCHAN when ON
  405. assign autoop ON
  406.  
  407. # Auto voices a friend joining channel(s) specified using /AUTOCHAN when ON
  408. assign autovoice ON
  409.  
  410. # Auto starts DCC GET when a DCC file is sent if ON
  411. assign autoget ON
  412.  
  413. # Auto starts DCC GET when a DCC file is sent if ON
  414. assign autochat ON
  415.  
  416. # Auto voices a user with DCC in nick.
  417. assign autodccvoice OFF
  418.  
  419. # Auto starts DCC SEND from pack list when ON
  420. assign autosend ON
  421.  
  422. # Auto closes all received DCC SENDs when ON
  423. assign autoclose OFF
  424.  
  425. # Suppress signon and signoff messages
  426. assign nosignvar OFF
  427.  
  428. # Suppresses xdcc echos
  429. assign dccquiet OFF
  430.  
  431. # XDCC requesters must be on friends list with XDCC permission set when ON
  432. assign security OFF
  433.  
  434. # Auto Overwrites DCC SENDs that match files in dir
  435. assign overwrite OFF
  436.  
  437. ## Phoenix Directories ($W designates current directory)
  438.  
  439. # Filename and directory used to store main /SAVE file
  440. EVAL @ phoenixfile = [$HOME/.phoenix]
  441.  
  442. # Backup filename and directory for /SAVE file
  443. EVAL @ phoenixbak = [$HOME/.phoenix.bak]
  444.  
  445. # Upload and download directories received files are put, and where 
  446. #    offered files are located
  447. EVAL @ UPLOADDIR = [$W]
  448. EVAL @ DOWNLOADDIR = [$W]
  449.  
  450. # Filename and directory that private messages are put when you /SETAWAY
  451. EVAL @ AWAYFLE = [$phoenixfile\.away]
  452.  
  453. # Filename and directory that the XDCC OFFER file is located
  454. EVAL @ OFFERFILE = [$phoenixfile\.fxdcc]
  455.  
  456. # Filename and directory where the notefile should be stored.
  457. EVAL @ EXNOTES = [$phoenixfile\.notes]
  458.  
  459. # Filename and directory where IRCLOGFILE is placed when /IRCLOG is used
  460. EVAL ^set logfile $W/irclog.ex
  461.  
  462. ### End Customize Section
  463.  
  464. ### Script Initializers. Do not edit below this line.
  465.  
  466. set INPUT_PROMPT <P-Loading Initializers> 
  467. EVAL echo $ex Phoenix Version 2.27 with Fluff Mods v1.8.5 now loading, please wait...
  468.  
  469. ^set status_format %T %*%@%N%#%S%H%B%Q%A%C%+%I%O%M%F %W%>%U 
  470. EVAL ^assign OLD_STATUS $STATUS_FORMAT
  471.  
  472. @ mcount = 0
  473. @ kcount = 0
  474. @ dccsent = 0
  475. @ nickcnt = 0
  476. @ away_messages = 0
  477. @ msgmax = 12
  478. @ MYSEND = [NO]
  479. @ FRIENDADD = 0
  480. @ PRIVADD = 0
  481. @ ENEMYADD = 0
  482. @ COMMENTADD = 0
  483. @ GETCOUNT = 0
  484. @ TOTPACK = 0
  485.  
  486. EVAL @ flood_ok = [$help_service]
  487.  
  488. assign cstat ON
  489. assign awaystat ON
  490. assign isaway NO
  491. assign logirc OFF
  492.  
  493. #Fluff: Wtf?  :)
  494. #^ignore *\* all
  495. #^ignore */* all
  496.  
  497. set AUTO_UNMARK_AWAY OFF
  498. set AUTO_WHOWAS OFF
  499. set BEEP ON
  500. set BEEP_MAX 2
  501. set BEEP_ON_MSG NONE
  502. set BEEP_WHEN_AWAY OFF
  503. set BOLD_VIDEO ON
  504. set CHANNEL_NAME_WIDTH 15
  505. set CLOCK ON
  506. set CLOCK_24HOUR OFF
  507. set COMMAND_MODE OFF
  508. set CONTINUED_LINE  
  509. set DCC_BLOCK_SIZE 4096
  510. set DISPLAY ON
  511. set FLOOD_WARNING OFF
  512. set FULL_STATUS_LINE ON
  513. set HELP_WINDOW OFF
  514. set HIDE_PRIVATE_CHANNELS OFF
  515. set HIGHLIGHT_CHAR BOLD
  516. set HISTORY 30
  517. set HOLD_MODE OFF
  518. set INDENT ON
  519. set INPUT_PROTECTION ON
  520. set INSERT_MODE ON
  521. set INVERSE_VIDEO ON
  522. set LASTLOG 100
  523. set LASTLOG_LEVEL ALL DCC
  524. set LOG OFF
  525. EVAL ^if ([$MAIL]==[0]) {^set mail 1}
  526. set MAX_RECURSIONS 200
  527. set NO_CTCP_FLOOD ON
  528. set NOTIFY_ON_TERMINATION OFF
  529. set SCROLL ON
  530. set SEND_IGNORE_MSG OFF
  531. set SHOW_AWAY_ONCE ON
  532. set SHOW_CHANNEL_NAMES ON
  533. set SHOW_END_OF_MSGS OFF
  534. set SHOW_NUMERICS OFF
  535. set SHOW_STATUS_ALL ON
  536. set SHOW_WHO_HOPCOUNT ON
  537. set STATUS_AWAY  (A)
  538. set STATUS_CHANNEL  %C
  539. set STATUS_CHANOP @
  540. set STATUS_CLOCK  %T
  541. set STATUS_HOLD  ** MORE **
  542. set STATUS_MODE  (+%+)
  543. set STATUS_MAIL  M:%M
  544. set STATUS_NOTIFY  A:%F
  545. set STATUS_OVERWRITE (overwrite) 
  546. set STATUS_QUERY  Q:%Q
  547. set STATUS_UMODE  (+%#)
  548. set STATUS_USER  \|/ Fphoenix v1.8.5 \|/
  549. set STATUS_WINDOW ^
  550. set SUPPRESS_SERVER_MOTD ON
  551. set TAB ON
  552. set TAB_MAX 2
  553. set UNDERLINE_VIDEO ON
  554. set USER_WALLOPS OFF
  555. set VERBOSE_CTCP OFF
  556. set WARN_OF_IGNORES ON
  557.  
  558. bind meta1-[ meta2
  559. bind meta1-O meta2
  560. bind meta2-A backward_history
  561. bind meta2-B forward_history
  562. bind meta2-C forward_character
  563. bind meta2-D backward_character
  564. bind ^B self_insert
  565. bind ^_ self_insert
  566. bind ^V self_insert
  567. bind ^Z stop_irc
  568. bind ^X switch_channels
  569. bind ^P backward_history
  570. bind ^N forward_history
  571. bind ^O parse_command /ig $,
  572. bind ^I parse_command ^getmsg 1 $msglist
  573. bind ^R parse_command ^getmsg -1 $msglist
  574. bind ^F parse_command forward_character
  575. bind ^Y parse_command /holdset
  576.  
  577. ### Basic Aliases (Used Throughout Phoenix. Most by Vassago)
  578. set INPUT_PROMPT <P-Loading Aliases> 
  579.  
  580. alias ww whowas
  581. alias sc names $C
  582. alias wi whois
  583. alias chops w -chops
  584. alias re redirect
  585. alias c mode $C $0-
  586. alias ji //join $decode($inv_chan)
  587. alias dc /dcc chat
  588. alias dcg //dcc close get
  589. alias dcs //dcc close send
  590. alias dcx //dcc close chat
  591. alias ex exec
  592. alias wii whois $0 $0
  593. alias quit signoff $0-
  594. alias m msg
  595. alias n notice
  596. alias mm msg $0 [To: $0] $1-
  597. alias unignore noig
  598. alias about aboutgcommand
  599. alias avar {^assign $0 $1-}
  600. alias umode mode $N
  601. alias nnotice quote NOTICE $0 :$1-
  602. alias fnotice quote NOTICE $0 :$1-
  603. alias kkick quote KICK $0 $1 :$2-
  604. alias mmode quote MODE $0-
  605. alias mc quote MODE $C -lsnmpitk $chankey
  606. alias nokey quote MODE $C -k $chankey
  607. alias sec_check if (rmatch($0 $SECLIST)) {@ FUNCTION_RETURN = [YES]}{@ FUNCTION_RETURN = [NO]}
  608. alias isnum if (rmatch($0 *0* *1* *2* *3* *4* *5* *6* *7* *8* *9*)) {@ FUNCTION_RETURN = 1}{@ FUNCTION_RETURN = 0}
  609. alias isalpha if (rmatch($0 *a* *b* *c* *d* *e* *f* *g* *h* *i* *j* *k* *l* *m* *n* *o* *p* *q* *r* *t* *u* *v* *w* *x* *y* *z*)) {@ FUNCTION_RETURN = 1}{@ FUNCTION_RETURN = 0}
  610. alias _checkkey if (!rmatch($M *k*)) {^set status_mode  (+%+)}{^timer 15 _checkkey}
  611. alias wl wholeft
  612. alias i inv $,
  613. alias xl CTCP $C XDCC LIST
  614. alias xlo CTCP $C XDCC OVERVIEW
  615. alias bkick bk
  616. alias deop dop
  617. alias dop ndop $C $0-
  618. alias getig {@ FUNCTION_RETURN = ig_count * 60}
  619. alias submode if (mcount>0) {@ mcount = mcount - 1}
  620. alias subkick if (kcount>0) {@ kcount = kcount - 1}
  621. alias chanpass if ((match($strip(# $0) $AutoChannels))||([$AutoChannels]==[ALL])) {^assign FUNCTION_RETURN YES}
  622. alias _delayop if (isop($decode($1) $0)==0) {/mmode $0 +o $decode($1)}
  623. alias _delayvoice if (isop($decode($1) $0)==0) {/mmode $0 +v $decode($1)}
  624.  
  625. alias enickonly {^assign FUNCTION_RETURN $encode($left($index(! $0) $0))}
  626. alias userdomain @ function_return = LEFT($INDEX(@ $0) $0)##[@]##MID(${1+INDEX(. $0)} 99 $0)
  627. alias hostonly @ function_return = mid(${index(@ $0)+1} 99 $0)
  628. alias newdate @ function_return = mid(4 12 $stime($0))
  629. alias pecho {^xecho -level crap $ex $0-}
  630. alias qecho {
  631. if ( [$dccquiet] == [OFF] ) {
  632.  pecho $0-
  633. }}
  634.  
  635. alias pubact if (isop($N $1)) {/kkick $1 $0 $channel.floodmsg}
  636. alias serv {/if ([$0]) {//server $0-}{/if ([$_server]!=[]) {//server $_server}{//server 1}}}
  637. alias pubecho if ([$1]==[$C]) {/echo <$0> $2-}{/echo <$0:$1> $2-}
  638. alias safe {^assign FUNCTION_RETURN $strip(\;\(\)*/\\\{\}$$~`|'\" $0-)}
  639. alias xsafe {^assign FUNCTION_RETURN $strip(\    \:\;&\(\)*/\\\{\}$$~`|'\"\^ º╢  $0-)}
  640. alias msafe {^assign FUNCTION_RETURN $strip(\;$$ $0-)}
  641. alias j if ((![$0])||([&]==[$[1]0])||([#]==[$[1]0])||([$0]==[0])||([-]==[$[1]0])) {//join $0-} {//join #$0-}
  642. alias l if (![$0]) {//leave $C}{/if (([&]==[$[1]0])||([#]==[$[1]0])||([$0]==[*])) {//leave $0} {//leave #$0}}
  643. alias ap {
  644. ^set STATUS_USER  Lag ? - E/X
  645. quote PING $time() $S
  646. }
  647. alias tref {
  648. ^timer -delete $0
  649. ^timer -refnum $0-
  650. }
  651. alias holdset {
  652. ^set HOLD_MODE TOGGLE
  653. pecho Screen pausing mode is now $HOLD_MODE\.
  654. }
  655. alias cwait {
  656. wait -CMD #
  657. wait -CMD $0-
  658. }
  659. alias purge {
  660. foreach $0 ii {/purge $0.$ii}
  661. ^assign -ii
  662. ^assign -$0
  663. }
  664. alias sb {
  665. ^on ^367 "*" {
  666. if ([$4]) {/echo *** $[10]1 $[31]2 $[16]3 at $newdate($4)}
  667. {/pecho $1-}}
  668. if ([$0]) {//mode #$strip(# $0) +b}
  669. {//mode $C +b}
  670. cwait ^on 367 - "*"
  671. }
  672. alias w if ([$0]) {
  673. if ([$0]==[-chops]) {//who $0 $C $1-} 
  674. {//who -h $0-}}
  675. {//who $C}
  676. alias t {
  677. if ([$0]==[#*]) {//topic $0-}
  678. {//topic $C $0-}}
  679. alias inv {
  680. if ([$0]) {
  681. if ([$1]) {//invite $0-}
  682. {//invite $0 $C}}
  683. {/pecho You need to specify a nick to invite.}}
  684. alias pubcat {
  685. if ([$0]) {//^exec -notice $C cat $0}
  686. {/pecho Usage: /pubcat <filename>}}
  687. alias prvcat {
  688. if ([$0]) {//^exec -notice $0 cat $1}
  689. {/pecho Usage: /prvcat <nick> <filename>}}
  690. alias ver {
  691. if ([$0]) {/ctcp $0 VERSION}
  692. {/ctcp $C VERSION}}
  693. alias p {
  694. if ([$0]) {//ping $0}{//ping $C}}
  695. alias op {
  696. mmode $C +ooo $0 $1 $2
  697. if ([$3]) {/op $3-}}
  698. alias v voice
  699. alias voice {
  700. mmode $C +vvv $0 $1 $2
  701. if ([$3]) {/voice $3-}}
  702. alias dv {
  703. mmode $C -vvv $0 $1 $2
  704. if ([$3]) {/dv $3-}}
  705. alias ndop {
  706. mmode $0 -oo $1 $2
  707. if ([$3]) {/ndop $0 $3-}}
  708. alias ftm {
  709. if ([$left(1 $0)]==[0]) {@ timestr = [$mid(1 4 $0)]}{@ timestr = [$left(5 $0)]}
  710. @ timestr = [$timestr $tolower($right(2 $0))]
  711. @ FUNCTION_RETURN = [$timestr]
  712. }
  713.  
  714. ### DCC PARSER (by Vassago, CHAT autoclose by AlphaSux)
  715.  
  716. alias dcc {
  717. //dcc $0-
  718. if ([$0]==[SEND]) {^timer 60 checksend $1 $2}
  719. if ([$0]==[CHAT]) {
  720. ^addmsg \=$1 $msglist
  721. ^on ^401 "% $1 *" {
  722. ^dcx $1
  723. pecho I can't find $1 on IRC. Closing DCC CHAT request.
  724. }
  725. cwait ^on ^401 - "% $1 *"
  726. }}
  727.  
  728. ### IsOp Function (by CKeeper)
  729.  
  730. alias isop {
  731. if (([$1] == [$C])&&([$0] == [$N])) {
  732. if ([$P] == [@]) {@ FUNCTION_RETURN = 1}{@ FUNCTION_RETURN = 0}}
  733. {/EVAL @ FUNCTION_RETURN = $ischanop($0 $1)}}
  734.  
  735. ### Server Message Redefinition (by Vassago and wc)
  736. set INPUT_PROMPT <P-Loading Actions> 
  737.  
  738. on ^002 "*" #
  739. on ^305 "*" #
  740. on ^306 "*" #
  741. on ^443 "*" #
  742. on ^329 "*" {/pecho Channel $1 created on $mid(4 12 $stime($2)) - $3-}
  743. on ^333 "*" echo *** Topic for $1 set by $2 on $mid(4 15 $stime($3))
  744. on ^404 "*" check_synch $0-
  745. on ^482 "*" check_synch $0-
  746. on ^301 "*" if ([$0]!=[$N]) {/echo ***   Away        : $0 is away: $1-}
  747. on ^311 "*" {
  748. echo *** Whois Information for: $1
  749. echo ***   Address     : $2@$3
  750. echo ***   IRCNAME     : $5-
  751. }
  752. on ^312 "*" echo ***   Server      : $1 \($2-\)
  753. on ^313 "*" echo ***   IRC OP      : $1 has operator status.
  754. on ^314 "*" {
  755. echo *** Whowas information for: $1
  756. echo ***   Address     : $2@$3
  757. echo ***   IRCNAME     : $5-
  758. }
  759. on ^319 "*" echo ***   On Channels : $1-
  760. on ^317 "*" {
  761. if (index(012345679 $3) != -1) {
  762. ^assign -sectime
  763. ^assign -mintime
  764. ^assign sectime $2
  765. @ mintime = sectime / 60
  766. echo ***   Idle Time   : $mintime minute\(s\) \($2 seconds\)
  767. echo ***   Signed on   : $stime($3)
  768. }{
  769. ^assign -sectime
  770. ^assign -mintime
  771. ^assign sectime $2
  772. @ mintime = sectime / 60
  773. echo ***   Idle Time   : $mintime minute\(s\) \($2 seconds\)
  774. }}
  775.  
  776. alias check_synch {
  777. if ([$0]!=[$desynch]) {
  778. if ([$0]!=[$S]) {
  779. pecho $0 is desynched from the IRC Network.
  780. ^assign desynch $0
  781. tref 500 30 ^assign -desynch
  782. }{/echo *** $1-}}}
  783.  
  784. ### MODE and KICK Protection (by Vassago)
  785.  
  786. alias mdact {
  787. if ((isop($N $1))&&([$mdwait]!=[$0])&&([$decode($0)]!=[$N])) {
  788. mmode $1 -o $decode($0)
  789. pecho MASS DEOP DETECTED. By: $decode($0) On: $1
  790. ^assign mdwait $0
  791. tref 501 8 ^assign -mdwait
  792. }
  793. @ mcount = 0
  794. }
  795.  
  796. alias kact {
  797. if ((isop($N $1))&&([$kwait]!=[$0])&&([$decode($0)]!=[$N])) {
  798. mmode $1 -o $decode($0)
  799. pecho MASS KICK DETECTED. By: $decode($0) On: $1
  800. ^assign kwait $0
  801. tref 502 8 ^assign -kwait
  802. }
  803. @ kcount = 0
  804. }
  805.  
  806. alias mdtest {
  807. if ([$0]==[$lastmd]) {
  808. @ mcount = mcount + $2
  809. ^timer 12 submode
  810. if (mcount>msensor) {/mdact $0 $1}}{
  811. ^assign lastmd $0
  812. @ mcount = $2
  813. ^timer 12 submode
  814. if (mcount>msensor) {/mdact $0 $1}}}
  815.  
  816. alias ktest {
  817. if (([$0]==[$lastmdk])&&([$0]!=[$encode($N)])) {
  818. @ kcount = kcount + 1
  819. ^timer 12 subkick
  820. if (kcount>ksensor) {/kact $0 $1}
  821. }{^assign lastmdk $0}}
  822.  
  823. ### MODE & KICK Handlers (by Vassago & YaZoO)
  824.  
  825. on -raw_irc "% MODE *" {
  826. @ mdcnt = 0
  827. @ nixcnt = 0
  828. ^assign mde +
  829. ^assign mdech $3
  830. ^assign nix $4-
  831. @ mdchop = [$encode($left($index(! $0) $0))]
  832. if (([$prot]==[ON])&&(rmatch($3 -ooo* *-ooo*))) {/mdact $mdchop $2}
  833. while (mid($mdcnt 1 $mdech)!=[]) {
  834. ^assign mdecc $mid($mdcnt 1 $mdech)
  835. if (([$mdecc]==[-])||([$mdecc]==[+])) {^assign mde $mdecc}{
  836. if (match($mdecc b o k l m n s t p i)) {
  837. if ([$mde$mdecc]==[+b]) {
  838. if ((match($word($nixcnt $nix) $ownadd))&&(rmatch($0 *!*)))
  839.  {/bansave $2 $mdchop $word($nixcnt $nix)}
  840. if ([$faddr]!=[]&&(match($word($nixcnt $nix) $faddr))&&(rmatch($0 *!*)))
  841.  {^timer 300 banrem $2}
  842.  
  843. if ((!rmatch($0 *!*))&&(isop($N $2))&&([$nhp]==[ON])&&([$SAVEBAN]==[])) {/mmode $2 -b $word($nixcnt $nix)}
  844. ^assign -SAVEBAN
  845. }
  846. if ([$mde$mdecc]==[+o]) {
  847. if ((!rmatch($0 *!*))&&(isop($N $2))&&([$nhp]==[ON])) {/mmode $2 -o $word($nixcnt $nix)}}
  848. if ([$mde$mdecc]==[-o]) {/if ([$prot]==[ON]) {/mdtest $mdchop $2 1}}
  849. if ([$mde$mdecc]==[+k]) {
  850. ^assign chankey $word($nixcnt $nix)
  851. if ((rmatch($word($nixcnt $nix) $false_chars))&&(rmatch($0 *!*))) {
  852. EVAL ^set status_mode  $word(0 \(+$M\))
  853. ^timer 10 _checkkey
  854. if ((isop($N $2))&&([$cprot]==[ON])) {/mmode $2 -k $word($nixcnt $nix)}
  855. }
  856. {/if ((!rmatch($0 *!*))&&(isop($N $2))&&([$NHP]==[ON])) {/mmode $2 -k $word($nixcnt $nix)}}
  857. }
  858. @ nixcnt = nixcnt + 1
  859. }}
  860. @ mdcnt = mdcnt + 1
  861. }}
  862.  
  863. on ^mode "%.% *" pecho SERVER MODES DETECTED. In $1: \'$2-\'
  864.  
  865. alias banrem {
  866. if (isop($N $0)) {
  867. unban $fnick $0
  868. }}
  869.  
  870. alias bansave {
  871. if (isop($N $0)) {
  872. mmode $0 -ob $decode($1) $2
  873. kkick $0 $decode($1) $uban.kickmsg
  874. }
  875. ^assign SAVEBAN YES
  876. pecho BAN ON YOU DETECTED. By: $decode($1)
  877. }
  878.  
  879. ### Kick handler (by Vassago)
  880.  
  881. on -raw_irc "% KICK *" {
  882. ^assign kickchan $strip(: $2)
  883. ^assign kickperson $encode($left($index(! $0) $0))
  884. if ([$prot]==[ON]) {/ktest $kickperson $kickchan}
  885. if (([$3]==[$N])&&([$REJOIN]==[ON])) {
  886. /pecho  - Kicked!\
  887. cwait //join $kickchan
  888. }}
  889.  
  890. ### Nick Flood Protection (by Vassago)
  891.  
  892. on -channel_nick "*" {
  893. if ( ([$cprot]==[ON])&&([$2]!=[$N])) {
  894. if ([$newnick1]==[$encode($1)]) {@ nickcnt = nickcnt + 1}
  895. if (nickcnt==nicksensor) {
  896. if (isop($N $0)) {
  897. kkick $0 $2 $nick.floodmsg
  898. pecho NICK FLOOD DETECTED. On $0 by: $2
  899. }
  900. @ nickcnt = 0
  901. }
  902. ^assign newnick1 $encode($2)
  903. ^timer 30 ^assign -newnick1
  904. ^timer 30 @ nickcnt = 0
  905. }}
  906.  
  907. ### JOIN Functions (by Vassago)
  908.  
  909. alias __handle_voice {
  910. ^on window - "% ??? Mode for channel *"
  911. @ hvind = [$index(m $strip(\" $7))] + 0
  912. if (hvind>=0) {
  913. ^timer 2 _delayvoice $5 $DOINGVOICE
  914. }
  915. ^assign -DOINGVOICE
  916. }
  917.  
  918. alias handle_voice {
  919. if ( [$DOINGVOICE] != [] ) {
  920. ^timer 2 handle_voice $0 $1
  921. }{
  922. ^assign DOINGVOICE $1
  923. //mode $0
  924. ^on ^window "% ??? Mode for channel *" {
  925. __handle_voice $0-
  926. }}}
  927.  
  928. alias autocheck {
  929. ^assign ainuse Y
  930. foreach ENEMIES XX {
  931. if ((rmatch($ENEMIES[$XX] $1))||(match($ENEMIES[$XX] $1))) {
  932. if ([$bkmatch]==[]) {
  933. if ([$COMMENTS[$XX]]!=[]) {
  934. mmode $0 -o+b $decode($2) $ENEMIES[$XX]
  935. kkick $0 $decode($2) $COMMENTS[$XX]
  936. }{
  937. mmode $0 -o+b $decode($2) $ENEMIES[$XX]
  938. kkick $0 $decode($2) $abkickmsg
  939. }
  940. @ bkmatch = 1
  941. }}}
  942. ^assign -bkmatch
  943. # If we op them, don't bother voicing them too.
  944. if (([$autoop]==[ON])&&([$chanpass($0)]==[YES])&&(rmatch($1 $OPLIST))) {^timer 3 _delayop $0 $2}
  945. {
  946. if (([$autovoice]==[ON])&&([$chanpass($0)]==[YES])&&(rmatch($1 $VOICELIST))) {
  947. ^timer 0 handle_voice $0 $2
  948. }}}
  949.  
  950. on -raw_irc "% JOIN *" {/if (isop($N $strip(: $2))) {/autocheck $strip(: $2) $safe($0) $encode($left($index(! $0) $0))}}
  951.  
  952. on ^join "*" {^netjoined $encode($tolower($1)) $encode($0) $1 $0 $safe($Userhost())}
  953. on ^leave "*" {if ([$NOSIGNVAR]!=[ON]) {/echo *** $0 has left channel $1 at $Z}}
  954.  
  955. ### Netsplit Detection (by Daemon, mods by Vassago)
  956.  
  957. alias netclean {
  958. foreach splittime ii {
  959. foreach splittime.$ii jj {
  960. if ( time() - splittime[$ii][$jj] > 300 ) {
  961. foreach signcross.$(ii).$jj xx {
  962. foreach signcross.$(ii).$(jj).$xx yy {
  963. ^assign -signcross[$ii][$jj][$xx][$yy]
  964. ^assign -signoffs[$xx][$yy]
  965. }}
  966. ^assign -xx
  967. ^assign -yy
  968. ^assign -isbroke[$ii][$jj]
  969. ^assign -splitname[$ii][$jj]
  970. ^assign -splittime[$ii][$jj]
  971. }}}
  972. ^assign -ii
  973. ^assign -jj
  974. }
  975.  
  976. alias isbogus {
  977. if ([$3]) { @ function_return = 1 }
  978. if (rmatch(.$1. $bogus_patterns $false_chars *..*)) { @ function_return = 1 }
  979. if (rmatch(.$2. $bogus_patterns $false_chars *..*)) { @ function_return = 1 }
  980. }
  981.  
  982. on ^channel_signoff "% % %.% %.*" {
  983. if (isbogus($1-)) {if([$NOSIGNVAR]!=[ON]){/echo *** Signoff: $1 \($2-\)}}
  984. {^netbroke $encode($tolower($0)) $encode($1) $encode($2).$encode($3) $2-}
  985. }
  986.  
  987. alias netbroke {
  988. ^assign signcross[$2][$0][$1] 1
  989. ^assign signoffs[$0][$1] $2
  990. ^assign splittime[$2] $time()
  991. if (isbroke[$2]==[]) {
  992. ^assign isbroke[$2] 1
  993. ^assign splitname[$2] $3-
  994. pecho Netsplit detected at $ftm($Z): \($3-\)
  995. pecho Type /wholeft to see who split away.
  996. }}
  997.  
  998. alias netjoined {
  999. if (signoffs[$0][$1]) {
  1000. if (isbroke[$signoffs[$0][$1]]) {/pecho Netjoined at $ftm($Z) \($splitname[$signoffs[$0][$1]]\)}
  1001. ^assign -isbroke[$signoffs[$0][$1]]
  1002. ^assign -signcross[$signoffs[$0][$1]][$0][$1]
  1003. ^assign -signoffs[$0][$1]
  1004. }
  1005. {
  1006. if (([$AUTODCCVOICE]==[ON])&&(isop($N $C))&&(rmatch($3 *dcc*))) {
  1007. mode $safe($2) +v $3
  1008. }
  1009. if ([$NOSIGNVAR]!=[ON]) {
  1010. if ([$2]==[$C]) {/echo *** $3 \($4-\) has joined channel $C}
  1011. {/echo *** $3 \($4-\) has joined channel $2\}}
  1012. }
  1013. }
  1014.  
  1015. alias netpurge {
  1016. purge isbroke
  1017. purge splitname
  1018. purge splittime
  1019. purge signcross
  1020. purge signoffs
  1021. }
  1022.  
  1023. alias lformat {
  1024. @ IRCII.word = [$1-]
  1025. if (@IRCII.word < [$0]) {@ function_return = [$([$0]IRCII.word)]}
  1026. {@ function_return = [$IRCII.word]}
  1027. }
  1028.  
  1029. alias wholeft {
  1030. foreach signoffs ii {/foreach signoffs.$ii jj {/pecho $lformat(15 $decode($ii)) $lformat(10 $decode($jj)) $splitname[$signoffs[$ii][$jj]]}}
  1031. ^assign -ii
  1032. ^assign -jj
  1033. }
  1034.  
  1035.  
  1036. # Flood Control Handlers by Fluff
  1037.  
  1038. alias _floodcount {
  1039. @COUNT = 0
  1040. @FOUND = 0
  1041. while ( COUNT <= XFLOODHIGH ) {
  1042. if ( ARRAYFLOOD[$COUNT] > 0 ) {
  1043. @ARRAYFLOOD[$COUNT] = ARRAYFLOOD[$COUNT] - 1
  1044. @FOUND = 1
  1045. }
  1046. @COUNT = COUNT + 1
  1047. }
  1048. if ( FOUND == 1 ) {
  1049. timer 0 tref 613 2 _floodcount
  1050. }{
  1051. if ( XFLOODLIM != XFLOODMAX ) {
  1052. @ XFLOODLIM = XFLOODMAX
  1053. pecho Repeated Flooding is over.  Limit Raised\ to $XFLOODLIM\.
  1054. }
  1055. @XFLOODHIGH = -1
  1056. }}
  1057.  
  1058. alias floodADD {
  1059. @ARRAYFLOOD[$0] = ARRAYFLOOD[$0] + 1
  1060. @COUNT = [$0]
  1061. if ( XFLOODHIGH < COUNT ) {
  1062. @XFLOODHIGH = COUNT
  1063. }}
  1064.  
  1065. alias floodhCHECK {
  1066. if ([$ARRAYFLOODHOST[$0]]!=hostonly($1)) {
  1067. ^assign ARRAYFLOODHOST[$0] $hostonly($1)
  1068. EVAL @REF = 63$0
  1069. tref $ref 30 ^assign -ARRAYFLOODHOST[$0]
  1070. if ([$floodCHECK($0 $1)]) {
  1071. @ FUNCTION_RETURN = 1
  1072. }{
  1073. @ FUNCTION_RETURN = 0
  1074. }}{
  1075. @ FUNCTION_RETURN = 0
  1076. }}
  1077.  
  1078. alias floodCHECK {
  1079. tref 613 2 _floodcount
  1080. if ( ARRAYFLOOD[$0] > XFLOODLIM ) {
  1081. if ( XFLOODLIM != XFLOODMIN ) {
  1082. @ XFLOODLIM = XFLOODMIN
  1083. pecho Repeated Flooding detected from $0:  Limit Dropped\ to $XFLOODLIM\.
  1084. }
  1085. @ FUNCTION_RETURN = 0
  1086. }{
  1087. floodADD $0
  1088. @ FUNCTION_RETURN = 1
  1089. }}
  1090.  
  1091.  
  1092. ### Flood Handling Routines (by Vassago)
  1093.  
  1094. alias fcheck {
  1095. @ FUNCTION_RETURN = 0
  1096. if (([$floodp]==[ON])&&(!match($decode($0) $flood_ok))) {
  1097. if ((match(**** $3-))||(rindex($right(1 $3) $3) >= 200)) {
  1098. ignore_flood $0 $1 $hostonly($2)
  1099. clflood $1
  1100. @ FUNCTION_RETURN = 1
  1101. }
  1102. if (match($_tflood $last$1)) {
  1103. EVAL @ $1count = $($1count)+1
  1104. EVAL ^timer $resetcount subcnt $1
  1105. if ((msgcount==msgsensor)||(noticecount==noticesensor)||(ctcpcount==ctcpsensor)) {
  1106. ignore_flood $0 $1 $hostonly($2)
  1107. clflood $1
  1108. @ FUNCTION_RETURN = 1
  1109. }}{/clflood $1}
  1110. ^assign _tflood $hostonly($2)
  1111. ^assign last$1 $_tflood
  1112. }}
  1113.  
  1114. alias clflood {
  1115. if ([$0]==[MSG]) {@ msgcount = 0;^assign -lastmsger}
  1116. if ([$0]==[NOTICE]) {@ noticecount = 0;^assign -lastnoter}
  1117. if ([$0]==[CTCP]) {@ ctcpcount = 0;^assign -lastctcper}}
  1118.  
  1119. alias subcnt {
  1120. if (([$0]==[MSG])&&(msgcount>0)) {@ msgcount = msgcount - 1}
  1121. if (([$0]==[NOTICE])&&(noticecount>0)) {@ noticecount = noticecount - 1}
  1122. if (([$0]==[CTCP])&&(ctcpcount>0)) {@ ctcpcount = ctcpcount - 1}}
  1123.  
  1124. alias ignore_flood {
  1125. EVAL //^ignore *@$2 $igtypes
  1126. EVAL ^timer $getig() _igexp $0 $2
  1127. pecho $1 FLOOD DETECTED. From: $decode($0). Ignoring for $ig_count\ minutes\(s\).
  1128. if ([$floodmsg]!=[]) {/nnotice $decode($0) $floodmsg}
  1129. }
  1130.  
  1131. alias _igexp {
  1132. //^ignore *@$1 NONE
  1133. pecho No longer ignoring $decode($0) [$1] \(expired\).
  1134. }
  1135.  
  1136. alias twink_flood {
  1137. EVAL //^ignore $2 ALL
  1138. EVAL ^timer $getig() _twinkexp $2
  1139. pecho $1 TWINK-FLOOD DETECTED. From: $decode($0) \[$2\].
  1140. pecho Ignoring for $ig_count\ minutes\(s\).
  1141. if ([$floodmsg]!=[]) {
  1142. /nnotice $decode($0) $1 - $floodmsg
  1143. if ([$decode($0)]==[fluff]) { 
  1144. /nnotice $decode($0) $0 $1 -$2\- -$fuhost\-
  1145. }}
  1146. }
  1147.  
  1148. alias _twinkexp {
  1149. //^ignore $1 NONE
  1150. pecho No longer twink-ignoring $decode($0) [$1] \(expired\).
  1151. }
  1152.  
  1153. ### FLOOD-OK List (by Vassago & Robey)
  1154.  
  1155. alias fok {
  1156. if ([$0]) {
  1157. if (!match($0 $flood_ok)) {
  1158. @ flood_ok = flood_ok ## [ $0]
  1159. pecho Nick $0 now exempt from triggering flood protection.
  1160. }{/pecho Nickname $0 is already on your flood ok list.}}{
  1161. pecho Nicknames exempt from triggering flood protection:
  1162. pecho $flood_ok
  1163. }
  1164. if ([$1]) {/fok $1-}}
  1165.    
  1166. alias frem {
  1167. if ([$0]) {
  1168. if (match($0 $flood_ok)) {
  1169. @ flood_ok = rem_w($0 $flood_ok)
  1170. pecho Nickname $0 has been removed from your flood_ok list.
  1171. }{/pecho $0 is not on your flood_ok list.}}
  1172. {/pecho Usage: /REMFLOOD <nick> of person to remove from flood_ok.}
  1173. if ([$1]) {/frem $1-}}
  1174.  
  1175. ### PUBLIC flood Protection (by Vassago & CKeeper)
  1176.  
  1177. on ^public "% % ***" {
  1178. if ([$floodp]==[ON]) {
  1179. pubecho $0 $1 [Possible Tsunami] $msafe($2-)
  1180. }{/pubecho $0 $1 $2-}
  1181. if ([$cprot]==[ON]) {/pubact $0 $1}}
  1182.  
  1183. on ^public "% % ***" {
  1184. if ([$floodp]==[ON]) {
  1185. pubecho $0 $1 [Excess Beeps] $msafe($2-)
  1186. }{/pubecho $0 $1 $2-}
  1187. if ([$cprot]==[ON]) {/pubact $0 $1}}
  1188.  
  1189. ### Raw IRC CTCP/NOTICE Flood Protection (by Vassago)
  1190. set INPUT_PROMPT <P-Loading CTCP Handlers> 
  1191.  
  1192. on ^raw_irc "*!*@* % % :*%INFO*" #
  1193. on ^raw_irc "*!*@* % % :FINGER*" #
  1194. on ^raw_irc "*!*@* % % :**" #
  1195. on ^raw_irc "*!*@* % % :****" #
  1196. on ^raw_irc "*!*@* % % :ERRMSG*" #
  1197. on ^raw_irc "*!*@* % % :ECHO*" #
  1198. on ^raw_irc "*!*@* % % :*[*" #
  1199. on ^raw_irc "*!*@* % % :*ERRMSG *" #
  1200. on ^raw_irc "*!*@* % % :UTC*" #
  1201. on ^raw_irc "*!*@* % % :*DCC CHAT***DCC CHAT**" #
  1202.  
  1203. on ^raw_irc "% PRIVMSG % :VERSION" {
  1204. if ([$floodhCHECK(0 $0)]) {
  1205. if ([$left(1 $2)]==[$]) {/pecho Server wide VERSION by $decode($enickonly($0)) on $strip(\$ $2).}{
  1206. if (rmatch($2 #*)) {/pecho $decode($enickonly($0)) requested version information for everyone in $2\.}
  1207. {/pecho $decode($enickonly($0)) requested version information for you.}
  1208. if ([$phoenix.ver]!=[]) {/nnotice $decode($enickonly($0)) VERSION $phoenix.ver\}}
  1209. }}
  1210.  
  1211. on ^raw_irc "% PRIVMSG % :PING *" {
  1212. if ([$floodhCHECK(2 $0)]) {
  1213. if ([$left(1 $2)]==[$]) {/pecho Server wide PING from $decode($enickonly($0))\ on $strip(\$ $2).}{
  1214. if (rmatch($2 #*)) {/pecho $decode($enickonly($0)) has pinged everyone in $2\.}
  1215. {/pecho $decode($enickonly($0)) pinged you.}
  1216. }
  1217. /nnotice $decode($enickonly($0)) PING $time()\
  1218. }}
  1219.  
  1220. on ^raw_irc "% NOTICE % :VERSION *" {
  1221. if ([$floodCHECK(1 $0)]) {
  1222. pecho Version\: $decode($enickonly($0))\: $strip( $4-)
  1223. }}
  1224.  
  1225. on ^raw_irc "% PONG % *" {
  1226. if ([$0]==[$S]) {
  1227. ^assign lagtime ${time()-mid(1 999 $3)}
  1228. if (lagtime==0) {^set status_user  E/X}
  1229. {^set status_user  Lag $lagtime - E/X}
  1230. }{
  1231. if ([$floodhCHECK(8 $0)]) {
  1232. pecho Pong\: $decode($enickonly($0))\ $strip( $4-)
  1233. }}}
  1234.  
  1235. on ^raw_irc "% NOTICE % :PING *" {
  1236. if ([$floodCHECK(3 $0)]) {
  1237. @ diff = [$time()] - [$4]
  1238. if ( diff == 1 ) {
  1239. pecho Ping\: $decode($enickonly($0))\: $diff second.
  1240. }{
  1241. pecho Ping\: $decode($enickonly($0))\: $diff seconds.
  1242. }}}
  1243.  
  1244. # The Pong! reply really tells you nothing, since every client that
  1245. # sends it also sends the above ping.
  1246. on ^notice "% Pong!" #
  1247.  
  1248. ### CTCP Commands/Responses (by Vassago)
  1249.  
  1250. on -ctcp "*" {
  1251. if ([$floodCHECK(4 $safe($userhost()))]) {
  1252. if ([$1]==[$N]) {
  1253. if ([$2]==[XDCC]) {
  1254. ^assign DCCUSER $safe($Userhost())
  1255. /xdccmsg $0 $DCCUSER $3-
  1256. }
  1257. {
  1258. if ([$inuse]==[]) {
  1259. ^assign inuse YES
  1260. ^assign ctcpadr $safe($Userhost())
  1261. if ([$fcheck($encode($0) CTCP $ctcpadr $2-)]==0) {
  1262. if (!match($2 ACTION TIME UTC ERRMSG SED ECHO)) {
  1263. if (rmatch($0!$ctcpadr $FRIENDLIST)) {
  1264. if ([$3]) {^assign channel $3}
  1265. {^assign channel $C}
  1266. if ([$2]==[HELP]) {/ctcpcmd $0 HELP}{
  1267. if ([$chanpass($channel)]==[YES]) {
  1268. if (match($2 INVITE OP VOICE)) {
  1269. if ([$2]==[OP]) {
  1270. if (rmatch($0!$ctcpadr $OPLIST)) {
  1271. ctcpcmd $0 $2
  1272. ^assign TEMPYES ON
  1273. }}
  1274. if ([$2]==[VOICE]) {
  1275. if (rmatch($0!$ctcpadr $VOICELIST)) {
  1276. ctcpcmd $0 $2
  1277. ^assign TEMPYES ON
  1278. }}
  1279. if ([$2]==[INVITE]) {
  1280. if (rmatch($0!$ctcpadr $INVITELIST)) {
  1281. ctcpcmd $0 $2
  1282. ^assign TEMPYES ON
  1283. }}
  1284. if ([$TEMPYES]==[]) {/nnotice $0 You do not have access to command $2\.}
  1285. {^assign -TEMPYES}}
  1286. {/nnotice $0 $2 is not a valid CTCP command.}}
  1287. {/nnotice $0 CTCP functions are not enabled for channel $channel\.}
  1288. }}{   
  1289. if (match($2 INVITE OP UNBAN)) {
  1290. if ([$said_not]==[]) {
  1291. ^assign said_not ON
  1292. nnotice $0 You are not registered.
  1293. tref 506 45 ^assign -said_not
  1294. }}
  1295. if (match($2 HELP)) {
  1296. if ([$said_not]==[]) {
  1297. ^assign said_not ON
  1298. nnotice $0 Use /ctcp $N xdcc list for a list, /ctcp $N xdcc send #X for pack #X
  1299. tref 506 45 ^assign -said_not
  1300. }}
  1301. pecho CTCP \($safe($[35]2-)\) from unregistered person $0\.
  1302. }}}
  1303. ^assign -inuse
  1304. }}}}}
  1305.  
  1306. # CTCP COMMAND Parser (by YaZoO & Vassago)
  1307.  
  1308. alias ctcpcmd {
  1309. if ([$ctcpauto]==[ON]) {
  1310. if ([$1]==[OP]) {
  1311. if (isop($N $channel)) {
  1312. mmode $channel +o $0
  1313. if ([$phoenix.ver]) {/nnotice $0 You have been opped via Phoenix v2.27 with Fluff Mods v1.8.5} 
  1314. pecho $0 has been opped on $channel via a CTCP request.
  1315. }{
  1316. nnotice $0 I am not an operator on channel $channel\.
  1317. pecho $0 requested a CTCP Op on $channel\.
  1318. }}
  1319.  
  1320. if ([$1]==[VOICE]) {
  1321. if (isop($N $channel)) {
  1322. mmode $channel +v $0
  1323. if ([$phoenix.ver]) {/nnotice $0 You have been voiced via Phoenix v2.27 with Fluff Mods v1.8.5} 
  1324. pecho $0 has been voiced on $channel via a CTCP request.
  1325. }{
  1326. nnotice $0 I am not an operator on channel $channel\.
  1327. pecho $0 requested a CTCP VOICE on $channel\.
  1328. }}
  1329.  
  1330. if ([$1]==[INVITE]) {
  1331. if (isop($N $channel)) {
  1332. //^invite $0 $channel
  1333. if ([$phoenix.ver]) {/nnotice $0 You have been invited via Phoenix v2.27 with Fluff Mods v1.8.5}
  1334. pecho Inviting $0 under request from a CTCP.
  1335. }{
  1336. nnotice $0 I am not a channel operator on $channel\.
  1337. pecho $0 requested a CTCP invite to $channel\.
  1338. }}
  1339. if ([$1]==[HELP]) {
  1340. nnotice $0 These commands are available via CTCP request:
  1341. nnotice $0  /CTCP $N OP <#Channel>     :For ops on <#Channel>.
  1342. nnotice $0  /CTCP $N INVITE <#Channel> :For an invite to <#Channel>.
  1343. nnotice $0 I am currently on channel\(s\): $tolower($strip(# $mychannels()))
  1344. nnotice $0 Channel\(s\) on which these commands are active: $autochannels
  1345. pecho $0 has asked for help from my Friends list.
  1346. }}{
  1347. nnotice $0 Sorry, but my CTCP functions are currently disabled.
  1348. pecho $0 tried $1 for $channel via CTCP.
  1349. pecho CTCP functions are currently disabled.
  1350. }}
  1351.  
  1352. # Miscellaneous CTCP Handlers (by Vassago)
  1353.  
  1354. on ^ctcp "% % DCC CHAT *" {
  1355. if ([$floodCHECK(4 $safe($userhost()))]) {
  1356. ^assign dccadr $safe($Userhost())
  1357. pecho DCC CHAT\ received from $0 \[$dccadr\]
  1358. if ([$AUTOCHAT]==[ASK]) {
  1359. ^assign _temp $"[E/X] Connect? "
  1360. }{
  1361. if ([$AUTOCHAT]==[ON]) {
  1362. ^assign _temp yes
  1363. }{
  1364. ^assign _temp no
  1365. }}
  1366. if (rmatch($_temp y*)) {
  1367. pecho Attempting DCC CHAT connection with $0.
  1368. dcc chat $0}{
  1369. pecho Closing $0\'s DCC CHAT request.
  1370. dcx $0}
  1371. ^assign -_temp
  1372. }}
  1373.  
  1374. ### Invitation Handlers (by Vassago)
  1375.  
  1376. on ^invite "*" {
  1377. if ([$fcheck($encode($0) CTCP $safe($Userhost()) $1-)]==0) {
  1378. if (rmatch($1 $false_chars)) {/pecho $0 invites you to channel $1\ \(Fake\)}
  1379. {/echo *** $0 invites you to channel $1}}
  1380. ^assign inv_chan $encode($1)
  1381. }
  1382.  
  1383. ### Fake Mode Handler (by YaZoO)
  1384.  
  1385. on ^server_notice "*" #
  1386.  
  1387. on ^server_notice "% % no% -- fake: *" {
  1388. if (rmatch($7 $mychannels())) {/pecho [FAKE] $5 $7- from $0}
  1389. }
  1390.  
  1391.  
  1392. ### DCC Control Parsers (By Vassago, based on some stuff from YaZoO)
  1393.  
  1394. on ^msg "% XDCC *" {
  1395. if ([$floodCHECK(5 $safe($userhost()))]) {
  1396. ^assign XDCCUSER $safe($userhost())
  1397. if ([$fcheck($encode($0) CTCP $XDCCUSER $2-)]==0) {/xdccmsg $0 $XDCCUSER $2-}
  1398. }}
  1399.  
  1400. on ^ctcp "% % XDCC *" {
  1401. if ([$floodCHECK(4 $safe($userhost()))]) {
  1402. ^assign DCCUSER $safe($userhost())
  1403. /xdccmsg $0 $DCCUSER $3-
  1404. }}
  1405.  
  1406. alias dccCHECK {
  1407. @ FUNCTION_RETURN = 0
  1408. if ([$floodp]==[ON]) {
  1409. if ((index(\;/\\\{\}~|\"~=\^  $4-)>=0)||(match($4 zero null core))) {
  1410. ignore_flood $encode($0) DCC-SEND $dcc_ignore
  1411. //^dcc close get $0 $4
  1412. @ FUNCTION_RETURN = 1
  1413. ^assign -dcc_ignore
  1414. }}}
  1415.  
  1416. alias debug {
  1417. pecho =0[$0]=1[$1]=2[$2]=3[$3]=4[$4]=5[$5]=6[$6]=7[$7]=8[$8]=9[$9]=10[$10]=11[$11]=12[$12]
  1418. }
  1419.  
  1420. alias bd_handle {
  1421. if ([$hostonly($1)]!=[$LASTBACKMSG]) {
  1422. msg $1 Fluff Mods v1.8.5: $0\ detected.  Send of $5 rejected.
  1423. notice fluff X: $0-
  1424. whois $1
  1425. whowas $1
  1426. //^dcc close get $1 $5
  1427. ^assign -dcc_ignore
  1428. ^assign LASTBACKMSG $hostonly($1)
  1429. tref 612 30 ^assign -LASTBACKMSG
  1430. }}
  1431.  
  1432. alias _exploit_clean {
  1433. @ FUNCTION_RETURN = 0
  1434. if ([$BACKANAL]==[1])
  1435. {@ FUNCTION_RETURN = 1}
  1436. {
  1437. if ((index(& $4)>=0) && (index(\     $4)>=0)) {
  1438.  pecho AUTOGET EXPLOIT ATTEMPT by $0 - Execution:\ $0-
  1439.  bd_handle ShellEscape $0-
  1440. }{
  1441. if (index(\     $4)>=0) {
  1442.  pecho AUTOGET EXPLOIT ATTEMPT by $0 - Special Character4:\ $0-
  1443.  bd_handle Pos4 $0-
  1444. }{
  1445. if (index(\     $5)>=0) {
  1446.  pecho AUTOGET EXPLOIT ATTEMPT by $0 - Special Character5:\ $0-
  1447.  bd_handle Pos5 $0-
  1448. }{
  1449. if (index(\     $6)>=0) {
  1450.  pecho AUTOGET EXPLOIT ATTEMPT by $0 - Special Character6:\ $0-
  1451.  bd_handle Pos6 $0-
  1452. }{
  1453. @ BDC_A = [$[9]5] + 0
  1454. @ BDC_B = [$[9]6] + 0
  1455. @ BDC_C = [$[9]7] + 0
  1456. @ BDC_D = [$[9]8] + 0
  1457. @ BDC_E = [$[9]9] + 0
  1458. if ( (BDC_E != 0) ) {
  1459.  pecho IRC2-BUG Extra Info EXPLOIT ATTEMPT by $0 - Crash:\ $0-
  1460.  bd_handle Irc2ExtraCrashAttempt $0-
  1461.  if ( [$debugDCCSEND] == 1 ) {
  1462. debug $0-
  1463. }
  1464. }{
  1465. if ( (BDC_A <= 0) ) {
  1466.  pecho IRC2-BUG EXPLOIT ATTEMPT by $0 - Crash:\ $0-
  1467.  bd_handle Irc2CrashAttempt $0-
  1468. }{
  1469. if ( (BDC_C <= 0) ) {
  1470.  pecho IRC2-BUG EXPLOIT ATTEMPT by $0 - Size less than zero:\ $0-
  1471.  bd_handle Irc2NegativeSize $0-
  1472. }{
  1473. if ( (BDC_B >= 65536 ) ) {
  1474.  pecho IRC2-BUG EXPLOIT ATTEMPT by $0 - Invalid port:\ $0-
  1475.  bd_handle Irc2InvalidPort $0-
  1476. }{
  1477. @ TEMP = [$left(50 $4)]
  1478. if ([$TEMP]!=[$4]) {
  1479.  pecho IRC2-BUG EXPLOIT ATTEMPT by $0 - Excess Length:\ $0-
  1480.  bd_handle Irc2LengthExceeded $0-
  1481. }{
  1482. @ TEMP = [$left(50 $5)]
  1483. if ([$TEMP]!=[$5]) {
  1484.  pecho IRC2-BUG EXPLOIT ATTEMPT by $0 - Excess Length:\ $0-
  1485.  bd_handle Irc2LengthExceeded $0-
  1486. }{
  1487. @ TEMP = [$left(50 $6)]
  1488. if ([$TEMP]!=[$6]) {
  1489.  pecho IRC2-BUG EXPLOIT ATTEMPT by $0 - Excess Length:\ $0-
  1490.  bd_handle Irc2LengthExceeded $0-
  1491. }{
  1492. @ TEMP = [$left(50 $7)]
  1493. if ([$TEMP]!=[$7]) {
  1494.  pecho IRC2-BUG EXPLOIT ATTEMPT by $0 - Excess Length:\ $0-
  1495.  bd_handle Irc2LengthExceeded $0-
  1496. }{
  1497.  @ FUNCTION_RETURN = 1
  1498. }}}}}}}}}}}}}}
  1499.  
  1500. # This command also fixes the .* file bug in earlier IRCII clients.
  1501. on ^window "% ??? DCC SEND* request received from *" #
  1502.  
  1503. on ^ctcp "% % DCC SEND* * *" {
  1504. if ([$floodCHECK(4 $safe($userhost()))]) {
  1505. if ([$debugDCCSEND]==1) {
  1506. debug $0-
  1507. }
  1508. if ([$1]==[$N]) {
  1509. ^assign dcc_ignore $safe($userhost())
  1510. if ([$dccCHECK($0-)]==0) {
  1511. if (_exploit_clean($0-)==1) {
  1512. if ([$left(1 $4)]==[.])
  1513. {^assign oldfile _$mid(1 $index($right(1 $4)) $4)}
  1514. {^assign oldfile $4}
  1515. ^assign dccfile $xsafe($oldfile)
  1516. if ([$dccfile]!=[$oldfile]) {
  1517. pecho File contains strange characters:\ Stripping $oldfile to $dccfile
  1518. }
  1519. if (([$AUTOGET]==[ON])&&([$AUTOCLOSE]!=[ON])) {
  1520. //^dcc rename $0 $oldfile $DOWNLOADDIR/$dccfile
  1521. ^exec -name DCG$0/${DOWNLOADDIR}/$dccfile ls ${DOWNLOADDIR}/$dccfile
  1522. }{
  1523. if ([$AUTOCLOSE]==[ON]) {
  1524. pecho DCC SEND $dccfile from $0 request ignored and closed.
  1525. //^dcc close get $0 $dccfile
  1526. }{
  1527. if (([$AUTOGET]!=[ON])&&([$AUTOCLOSE]!=[ON])) {
  1528. //^dcc rename $0 $dccfile $DOWNLOADDIR/$dccfile
  1529. @ DCRSIZE = [$7]
  1530. @ DCRSIZE = DCRSIZE / 1024
  1531. pecho DCC: $0\ has dcc'd you $dccfile\ [$DCRSIZE\k\]
  1532. adddccrequest $DOWNLOADDIR/$dccfile $0
  1533. }}}}
  1534. }}}}
  1535.  
  1536. on ^exec_error "DCG* *" {
  1537. @ dcclen = [$0]
  1538. @ getf = [$right(${@dcclen-3} $0)]
  1539. @ idx = [$index(/ $getf)]
  1540. @ filenme = [$right(${@getf-idx+1} $0)]
  1541. @ nicknme = [$left($idx $getf)]
  1542. pecho I am autogetting $filenme from $nicknme\.\
  1543. //^dcc get $nicknme $filenme
  1544. if ([$debugDCCSEND]==1){
  1545. pecho Snag Okay.
  1546. }
  1547. }
  1548.  
  1549. on ^exec "DCG* *" {
  1550. @ dcclen = [$0]
  1551. @ getf = [$right(${@dcclen-3} $0)]
  1552. @ idx = [$index(/ $getf)]
  1553. @ filenme = [$right(${@getf-idx+1} $0)]
  1554. @ nicknme = [$left($idx $getf)]
  1555. if ([$OVERWRITE]==[ON]) {
  1556. pecho Autogetting $filenme from $nicknme\ \(Overwriting file\).
  1557. //^dcc get $nicknme $filenme
  1558. }{
  1559. pecho $nicknme offered $filenme\ but it already exists.
  1560. if ([$AUTORENAME]!=[ON]) {
  1561. @ dctemp = [$"[E/X] Enter new filename or ENTER to close: "]
  1562. if (dctemp!=[]) {
  1563. if ([$[1]dctemp]!=[/]) {^assign dctemp ${downloaddir}/${dctemp}}
  1564. pecho Getting $filenme renamed to $dctemp from $nicknme\.
  1565. //^dcc rename $nicknme $filenme $dctemp
  1566. //^dcc get $nicknme $dctemp
  1567. }{
  1568. pecho Closing DCC GET request from $nicknme\.
  1569. //^dcc close get $nicknme $filenme
  1570. }}{
  1571. ^assign dctemp $filenme\.$rand(999)
  1572. pecho Autorenaming to $dctemp\ and receiving.
  1573. if ([$[1]dctemp]!=[/]) {^assign dctemp ${downloaddir}/${dctemp}}
  1574. //^dcc rename $nicknme $filenme $dctemp
  1575. //^dcc get $nicknme $dctemp
  1576. }}}
  1577.  
  1578. ### No such nick protection
  1579.  
  1580. on ^window "% ??? * No such nick/channel" {
  1581. if ( [$2]!=[$lastnosuch] ) {
  1582. ^assign lastnosuch $2
  1583. echo $1-
  1584. }}
  1585.  
  1586. ### Server Connection ONs (by Vassago)
  1587.  
  1588. on ^connect "*" {^timer 1 _connect $0-}
  1589.  
  1590. on ^disconnect "*" {^timer 2 /areconnect}
  1591. on ^window "% ??? Use /SERVER to*" if ([$1]==[***]) {^timer 2 /areconnect}
  1592. on ^436 "*" {^timer 2 /areconnect}
  1593.  
  1594. alias areconnect {
  1595. pecho Connection closed. Autoconnecting to $_server\
  1596. if ([$RECONNECTING]==[]) {
  1597. ^assign RECONNECTING YES
  1598. tref 973 15 ^assign -RECONNECTING
  1599. if ([$_server]!=[]) {/EVAL serv $_server}{/serv}
  1600. }}
  1601.  
  1602. ### Miscellaneous ON Commands (by TG, Mods by Vassago)
  1603.  
  1604. on ^send_msg "*" {
  1605. #echo <-[$0]-> $1-
  1606. echo <*-[$0]-*> $1-
  1607. ^addmsg $0 $msglist
  1608. }
  1609.  
  1610. on ^dcc_chat "*" echo =$0= $1-
  1611.  
  1612. on ^send_action "*" {
  1613. if ([$floodCHECK(7 $safe($userhost()))]) {
  1614. if ([$[1]0]!=[#])
  1615. {/echo * $0 >> $N $1-}
  1616. {/echo * $N $1-}}}
  1617.  
  1618. on ^send_public "*" {
  1619. if ([$PUBQUIET]==[]) {
  1620. if ([$0]==[$C]) {/echo <${N}> $1-} {/echo -> <${N}> $1-}
  1621. }}
  1622.  
  1623. on ^send_dcc_chat "*" {
  1624. echo <=$0=> $1-
  1625. ^addmsg \=$0 $msglist
  1626. }
  1627.  
  1628. on ^action "*" {
  1629. if ([$floodCHECK(7 $safe($userhost()))]) {
  1630. if ([$[1]1]!=[#])
  1631. {/echo * $0 $2-}
  1632. {/if ([$C]!=[$1]) {/echo * $1 >> $0 $2-}
  1633. {/echo * $0 $2-}
  1634. }}}
  1635.  
  1636. on ^public_other "*" {/echo <$0/$1> $2-}
  1637.  
  1638. on ^exec "from *" pecho Mail: From $safe($1-)
  1639. on ^exec_error "from *" #
  1640.  
  1641. on ^mail "*" {
  1642. ^exec -name from frm | tail -$0
  1643. pecho You have new email! \(Mail Waiting: $1\)
  1644. }
  1645.  
  1646. ^on ^window "? ??? ?ecursive call to irc_io*" #
  1647.  
  1648. ### Message Handler Commands (by Vassago)
  1649.  
  1650. on ^msg "*" {
  1651. if ([$floodCHECK(5 $safe($userhost()))]) {
  1652. ^assign msghost $safe($Userhost())
  1653. if (fcheck($encode($0) MSG $msghost $1-)==0) {
  1654. if (encode( *$0*  $1-) != lmes) {
  1655. if (extmes==[ON]) {
  1656. if (miws) {^xecho -window Messages [$0:$safe($msghost)] $1-}
  1657. {/echo [$0:$safe($msghost)] $1-}
  1658. }{
  1659. if (miws) {^xecho -window Messages [$0:$safe($msghost)] $1-}
  1660. {/echo [$0] $1-}}}
  1661. if (isaway==[YES]) {
  1662. ^exec echo "[$ftm($Z)] [$safe($0):$safe($msghost)] $safe($strip(! $1-))" >> $awayfle
  1663. @ away_messages = away_messages + 1
  1664. }
  1665. ^assign lmes $encode( *$0*  $1-)
  1666. }{^assign lmes $encode( *$0*  [Flood Detected])}
  1667. ^addmsg $0 $msglist
  1668. }}
  1669.  
  1670. alias dirlm {
  1671. if ([$0]) {//msg $0 $strip( $decode($lmes))}
  1672. {/say $strip( $decode($lmes))}
  1673. }
  1674.  
  1675. ### Notice Commands (by Vassago)
  1676.  
  1677. on ^notice "*" {
  1678. if ([$floodCHECK(6 $safe($userhost()))]) {
  1679. if ([$fcheck($encode($0) NOTICE $safe($Userhost()) $1-)]==0) {
  1680. if (rmatch($1 *WallOp*)) {/echo [-$0\-] $1-}
  1681. {/echo -$0- $1-}
  1682. ^assign lnotice $encode(-$0- $1-)
  1683. }
  1684. {^assign lnotice $encode(-$0- [Flood Detected])}
  1685. ^addmsg $0 $msglist
  1686. }}
  1687.  
  1688. alias dirln {
  1689. if ([$0]) {//msg $0 $strip( $decode($lnotice))}
  1690. {/say $strip( $decode($lnotice))}
  1691. }
  1692.  
  1693. ### Timer/Idle Control
  1694.  
  1695. on -timer "*" {
  1696. ^ap
  1697. ^netclean
  1698. if (rmatch($0 %:00*)) {/pecho The time is now $0\.}
  1699. }
  1700.  
  1701. on -idle "*" {
  1702. if (([$0]==[$idletime])&&([$isaway]==[NO])) {
  1703. setaway $idlemes
  1704. pecho Setting you away after being idle for $idletime minutes.
  1705. }}
  1706.  
  1707. ### Tabkey Handlers
  1708.  
  1709. alias addmsg {
  1710. @ matched = rmatch($0 $^\1-)
  1711. if (matched) {@ msglist = [$(0-${matched-1}) $(${matched+1}-)]}
  1712. {@ msglist = [$(0-${msgmax-1})]}
  1713. @ msgcnt = 0
  1714. ^assign -matched
  1715. }
  1716.  
  1717. alias getmsg {
  1718. @ msgcnt = msgcnt + [$0]
  1719. if (#msglist < msgcnt) {@ msgcnt = 1}
  1720. if (msgcnt <= 0) {@ msgcnt =  #msglist}
  1721. @ junk = K ## [m]
  1722. //type ^U$junk $^^{[$($msgcnt)]} 
  1723. }
  1724.  
  1725. ### Ban Handlers (by Vassago and Fred1)
  1726. set INPUT_PROMPT <P-Loading Ban Handlers> 
  1727.  
  1728. alias bandef {
  1729. if ([$0]==[N]) {@ bandef= [Normal]}
  1730. if ([$0]==[H]) {@ bandef= [Host]}
  1731. if ([$0]==[D]) {@ bandef= [Domain]}
  1732. if ([$0]==[S]) {@ bandef= [Screw]}
  1733. if (!match($bandef Normal Host Domain Screw)) {@ bandef= [Normal]}
  1734. @ set.dfbt= left(1 $bandef)
  1735. pecho Default ban is $set.dfbt \($bandef\).
  1736. }
  1737.  
  1738. alias ban {
  1739. if ([$0]) {
  1740. if (!rmatch($0 *!* *@* *.*)) {
  1741. if ([$1]) {
  1742. @ _t.who= [$1]
  1743. @ _t.prm= mid(1 1 $0)
  1744. }{
  1745. @ _t.who= [$0]
  1746. @ _t.prm= set.dfbt
  1747. }
  1748. Userhost $_t.who -CMD if ([$4]!=[<UNKNOWN>]) {
  1749. @ _t.ban= []
  1750. if (match($_t.prm S N H D)) {@ _t.ban= [$($_t.prm\ban($3 $4 *))]}
  1751. if (!(_t.ban)) {@ _t.ban= nban($3 $4 *)}
  1752. if (isop($0 $C)) {/mmode $C -o+b $0 $_t.ban} {/mmode $C +b $_t.ban}
  1753. }{/pecho I couldn't find $0 on IRC.}
  1754. }{/c +b $0-}}{/pecho Usage: /ban [<bantype>] <nick>
  1755. }}
  1756.  
  1757. alias bk {
  1758. if ([$0]) {
  1759. @ _t.prm= [$0]
  1760. if (index(! $0)!=-1) {
  1761. @ _t.prm= mid(1 1 $0)
  1762. @ _t.who= [$1]
  1763. @ _t.bkr= [$2-]
  1764. }{
  1765. @ _t.prm= set.dfbt
  1766. @ _t.who= [$0]
  1767. @ _t.bkr= [$1-]
  1768. }
  1769. if (_t.bkr) {@ _t.bkr= [$_t.bkr\]} {@ _t.bkr= [$pk]}
  1770. Userhost $_t.who -CMD if ([$3]!=[<UNKNOWN>]) {
  1771. @ _t.ban= []
  1772. if (match($_t.prm S N H D)) {@ _t.ban= [$($_t.prm\ban($3 $4 *))]}
  1773. if (!(_t.ban)) {@ _t.ban= nban($3 $4 *)}
  1774. mmode $C -o+b $0 $_t.ban
  1775. kkick $C $0 $_t.bkr
  1776. }{/pecho I couldn't find $0 on IRC.}
  1777. }{/pecho Usage: /bk [<BanType>] <Nick> [<Reason>]
  1778. }}
  1779.  
  1780. alias sban {
  1781. @ cnt = 0
  1782. @ tomake = [$0@$1]
  1783. @ temp = [$1]
  1784. ^assign tomake $0@*$right(${@temp-index(. $1)} $1)
  1785. ^assign -temp 
  1786. if ((mid($cnt 1 $0)==[~])||(mid($cnt 1 $0)==[#])) {@ cnt = 1}
  1787. while (mid($cnt 1 $tomake)!=[]) {
  1788. @ rnd = rand(10)
  1789. if ((mid($cnt 1 $tomake)==[*])||(mid($cnt 1 $tomake)==[@])||(mid($cnt 1 $tomake)==[.])||(mid($cnt 1 $tomake)==[])||(mid($cnt 1 $tomake)==[])) {@ temp = [$temp$mid($cnt 1 $tomake)]}
  1790. {
  1791. if (rnd>4) {@ temp = [$temp?]}
  1792. {@ temp = [$temp$mid($cnt 1 $tomake)]
  1793. }}
  1794. @ cnt = cnt + 1
  1795. }
  1796. @ function_return = [*!*$temp]
  1797. }
  1798.  
  1799. alias nban @function_return= [$2!]##fixname($0 $2)##[@]##fixdomain($1 $2)
  1800. alias hban @function_return= [$2!$2@]##fixhost($1 $2)
  1801. alias dban @function_return= [$2!$2@]##fixdomain($1 $2)
  1802.  
  1803. alias fixhost {
  1804. if (index(. $0)==rindex(. $0)) {@ function_return= [$1] ## [$0]}
  1805. {@ function_return= [$0]}
  1806. }
  1807.  
  1808. alias fixname {
  1809. if (rmatch($0 ?? ?)) {@ function_return= [$1]}
  1810. {@ function_return= [$1] ## mid(1 99 $0)}
  1811. }
  1812.  
  1813. alias fixdomain {
  1814. if (index(. $0)!=rindex(. $0)) {
  1815. if (is_ip($0)) {@ function_return= left($rindex(. $0) $0) ## [.$1]}
  1816. {@ function_return= [$1$mid($index(. $0) 99 $0)]}
  1817. } {@ function_return= [$1$0]}
  1818. }
  1819.  
  1820. alias is_ip {
  1821. if ((right(1 $0) >= [0]) && (right(1 $0) <= [9]))
  1822. {@ function_return= [1]}
  1823. {@ function_return= [0]}
  1824. }
  1825.  
  1826. alias unbanlop {
  1827. if ([$3]) {
  1828. mmode $CHC -bbb $0 $1 $2
  1829. unbanlop $3-
  1830. }{
  1831. if ([$2]) {/mmode $CHC -bbb $0 $1 $2}{
  1832. if ([$1]) {/mmode $CHC -bb $0 $1}{
  1833. if ([$0]) {/mmode $CHC -b $0}}
  1834. }}}
  1835.  
  1836. alias banlop {
  1837. if ([$3]) {
  1838. mmode $C +bbb $0 $1 $2
  1839. banlop $3-
  1840. }{
  1841. if ([$2]) {/mmode $C +bbb $0 $1 $2}{
  1842. if ([$1]) {/mmode $C +bb $0 $1}{
  1843. if ([$0]) {/mmode $C +b $0
  1844. }}}}}
  1845.  
  1846. alias dobans {
  1847. pecho Doing bans in AutoBkick list.
  1848. banlop $BKLIST
  1849. }
  1850.  
  1851. alias cdban {
  1852. if ([$0]) {
  1853. @CHC = [$0]
  1854. }{
  1855. @CHC = [$C]
  1856. }
  1857. pecho Clearing $CHC of bans.
  1858. ^assign -bunband
  1859. ^on ^367 "*" {^assign bunband $2 ${bunband}}
  1860. //^mode $CHC +b
  1861. wait
  1862. cdban2 $bunband
  1863. }
  1864.  
  1865. alias unban {
  1866. if ([$1]) {
  1867. @CHC = [$1]
  1868. }{
  1869. @CHC = [$C]
  1870. }
  1871. if ([$0]) {
  1872. ^assign -bunband
  1873. if (!rmatch($0 *@* *!* *.*)) {
  1874. Userhost $0 -CMD if ([$4]!=[<UNKNOWN>]) {
  1875. ^assign dbanz $0!$3@$4
  1876. ^on ^367 "*" {
  1877. if ((match($2 $dbanz))||(match($dbanz $2))) {^assign bunband $2 ${bunband}}
  1878. }
  1879. //^mode $CHC +b
  1880. wait
  1881. cdban2 $bunband
  1882. nnotice $0 You have been unbanned\ on $CHC\\.
  1883. }}}
  1884. {/pecho Usage: /UNBAN <nick/filter> to unban on your current channel.}}
  1885.  
  1886. alias cdban2 {
  1887. unbanlop $0-
  1888. ^on 367 - "*"
  1889. }
  1890.  
  1891. ### Status Screen
  1892.  
  1893. alias status {
  1894. pecho +-----------+ Your Current FPhoenix Configuration +-----------+
  1895. pecho  CTCP Op/Invite                    : $ctcpauto 
  1896. pecho  Setaway Time                      : $idletime 
  1897. pecho  IRC Logging                       : $logirc 
  1898. pecho  AutoRejoin on KICK                : $rejoin 
  1899. pecho  Extended Message Display          : $extmes 
  1900. pecho  Kick/MassDeop Protection          : $prot 
  1901. pecho  Personal Flood Protection         : $floodp 
  1902. pecho  Channel Protection                : $cprot 
  1903. pecho  Netsplit Hack Protection          : $nhp 
  1904. pecho  Ban/Bkick Type Setting            : $bandef 
  1905. pecho  FPhoenix SENSOR Settings:
  1906. pecho   Deop: $msensor Kick: $ksensor Nick Flood: $nicksensor 
  1907. pecho   Message Flood: $msgsensor Notice Flood: $noticesensor 
  1908. pecho   CTCP Flood: $ctcpsensor Timer resets after: $resetcount 
  1909. pecho   Flood-triggered Ignores last $ig_count minutes.
  1910. pecho   Ignores stop: $igtypes\.
  1911. pecho +-------+ Type /XDCC STATUS for XDCC information. +-------+
  1912. }
  1913.  
  1914. ### Toggleable Commands
  1915.  
  1916. alias upp {
  1917. ^assign $0 $toupper($1)
  1918. chgst
  1919. }
  1920.  
  1921. alias extmes {
  1922. if (match($0 ON OFF)) {/upp extmes $0}
  1923. pecho Extended messages display is $extmes\.
  1924. }
  1925.  
  1926. alias prot {
  1927. if (match($0 ON OFF)) {/upp prot $0}
  1928. pecho Megadeop/Kick Protection is $prot\.
  1929. }
  1930.  
  1931. alias nhp {
  1932. if (match($0 ON OFF)) {/upp nhp $0}
  1933. pecho Netsplit hack protection is $nhp\.
  1934. }
  1935.  
  1936. alias autoop {
  1937. if (match($0 ON OFF)) {/upp autoop $0}
  1938. pecho Auto OP friends on JOIN is $autoop\.
  1939. }
  1940.  
  1941. alias autovoice {
  1942. if (match($0 ON OFF)) {/upp autovoice $0}
  1943. pecho Auto VOICE friends on JOIN is $autovoice\.
  1944. }
  1945.  
  1946. alias auto {
  1947. if (match($0 ON OFF)) {/upp ctcpauto $0}
  1948. pecho CTCP op/invite is $ctcpauto\.
  1949. if ([$1]) {^assign AutoChannels $tolower($strip(# $1-))}
  1950. pecho AUTO functions will work in channels: $AutoChannels\
  1951. }
  1952.  
  1953. alias autochan {
  1954. if ([$0]) {^assign AutoChannels $tolower($strip(# $0-))}
  1955. if ([$AutoChannels]!=[ALL]) {/pecho AUTO functions will work in: $AutoChannels\}
  1956. {/pecho AUTO functions will work in ALL your current channels.}
  1957. }
  1958.  
  1959. alias quietdcc {
  1960. if (match($0 ON OFF)) {/upp dccquiet $0}
  1961. pecho Echo of XDCC requests suppressed: $dccquiet\.
  1962. }
  1963.  
  1964. alias floodp {
  1965. if (match($0 ON OFF)) {/upp floodp $0}
  1966. pecho Message/Notice/CTCP flood protection is $floodp\.
  1967. }
  1968.  
  1969. alias cprot {
  1970. if (match($0 ON OFF)) {/upp cprot $0}
  1971. pecho Channel flood/bomb protection is $cprot\.
  1972. }
  1973.  
  1974. alias rejoin {
  1975. if (match($0 ON OFF)) {/upp rejoin $0}
  1976. pecho AutoRejoin on kick is $rejoin\.
  1977. }
  1978.  
  1979. alias irclog {
  1980. if (match($0 ON OFF)) {
  1981. ^set log $0
  1982. upp logirc $0
  1983. }
  1984. pecho The IRC Logfile is $logirc\.
  1985. }
  1986.  
  1987. alias autotime {
  1988. if ([$0]!=[]) {^assign idletime $0}
  1989. pecho Auto setaway idle time is $idletime\.
  1990. }
  1991.  
  1992. ### MDeop, MOp, MVoice, MRemoveVoice, LK, and MK (by YaZoO and Vassago)
  1993. set INPUT_PROMPT <P-Loading Op Handlers> 
  1994.  
  1995. alias mass {
  1996. if ([$0]) {
  1997. if (([$0]!=[lk])&&([$0]!=[k])) {
  1998. if ([$0]==[d]) {@ mass_mode = [-ooo];^on ^names "*" /findops $$1-\;^on ^names - "*"}
  1999. {
  2000. if ([$0]==[o]) {@ mass_mode = [+ooo]}
  2001. if ([$0]==[v]) {@ mass_mode = [+vvv]}
  2002. if ([$0]==[s]) {@ mass_mode = [-vvv]}
  2003. if ([$mass_mode]!=[]) {^on ^names "*" /findnonops $$1-\;^on ^names - "*"}
  2004. }
  2005. //names $C
  2006. cwait domassmode
  2007. }{
  2008. if ([$0]==[lk]) {
  2009. ^on ^names "*" {^assign lamkick $1-}
  2010. ^names $C
  2011. wait
  2012. ^assign lktmp no
  2013. @ lcnt = 0
  2014. pecho LKick started, please wait.
  2015. while ([$(#lamkick)]>lcnt) {
  2016. if (!match(@* $word($lcnt $lamkick))) {
  2017. if ([$word($lcnt $lamkick)]!=[$N]) {
  2018. if ([!$word($lcnt $lamkick)]!=[!]) {
  2019. ^assign bkicked $word($lcnt $lamkick) ${bkicked}
  2020. ^assign lktmp ppl
  2021. }}}
  2022. @ lcnt = lcnt + 1
  2023. }
  2024. if ([$lktmp]==[ppl]) {
  2025. @ lcnt = 0
  2026. while ([$(#bkicked)]>=lcnt) {
  2027. kkick $C $word($lcnt $bkicked) $pk
  2028. @ lcnt = lcnt + 1
  2029. }
  2030. pecho $bkicked have been kicked from $C.
  2031. }
  2032. {/pecho Everyone is opped on $C\.}
  2033. ^on names - "*"
  2034. ^assign -bkicked
  2035. ^assign -lcnt
  2036. ^assign -lktmp
  2037. }
  2038. if ([$0]==[k]) {
  2039. pecho Masskicking everyone from $C\.
  2040. ^on ^441 "*" #
  2041. ^on ^names "*" findops $$1-
  2042. names $C
  2043. cwait _kickcont
  2044. }}}{
  2045. pecho Usage: /MASS <o,d,v,s,k,lk> - O to op all non channel ops,
  2046. pecho d to deop all ops on the channel, v to give non-ops voice,
  2047. pecho and s to remove voice from all non-ops \(silence\), lk to
  2048. pecho mass kick all non-ops from the channel, and k to masskick 
  2049. pecho EVERYONE from your current channel.
  2050. }}
  2051.  
  2052. alias _kickcont {
  2053. ^assign kicklist $mdchange
  2054. kickthem
  2055. ^assign -mdchange
  2056. ^on ^names "*" findnonops $$1-
  2057. names $C
  2058. cwait _kickcont2
  2059. }
  2060.  
  2061. alias _kickcont2 {
  2062. ^assign kicklist $mdchange
  2063. kickthem
  2064. ^assign -mdchange
  2065. ^on 441 - "*"
  2066. ^on names - "*"
  2067. }
  2068.  
  2069. alias domassmode {
  2070. @ mdchangecnt = 1
  2071. while ([$(#mdchange)]>=mdchangecnt) {
  2072. mmode $C $mass_mode $decode($word(${mdchangecnt-1} $mdchange)) $decode($word($mdchangecnt $mdchange)) $decode($word(${mdchangecnt+1} $mdchange))
  2073. @ mdchangecnt = mdchangecnt + 3
  2074. }
  2075. ^assign -mdchangecnt
  2076. ^assign -mdchange
  2077. ^assign -mass_mode
  2078. }
  2079.  
  2080. alias findops {
  2081. if (([$[1]0] == [@]) && (match($0 @${N} $N)==0)) {^assign mdchange $encode($strip(@ $0)) ${mdchange}}
  2082. if (([$[1]1] == [@]) && (match($1 @${N} $N)==0)) {^assign mdchange $encode($strip(@ $1)) ${mdchange}}
  2083. if (([$[1]2] == [@]) && (match($2 @${N} $N)==0)) {^assign mdchange $encode($strip(@ $2)) ${mdchange}}
  2084. if ([$3]) {/findops $3-}
  2085. }
  2086.  
  2087. alias findnonops {
  2088. if (([$[1]0] != [@]) && (match($0 @${N} $N)==0)) {^assign mdchange $encode($strip(+ $0)) ${mdchange}}
  2089. if (([$[1]1] != [@]) && (match($1 @${N} $N)==0)) {^assign mdchange $encode($strip(+ $1)) ${mdchange}}
  2090. if (([$[1]2] != [@]) && (match($2 @${N} $N)==0)) {^assign mdchange $encode($strip(+ $2)) ${mdchange}}
  2091. if ([$3]) {/findnonops $3-}
  2092. }
  2093.  
  2094. alias kickthem {
  2095. @ mcnt = 0
  2096. if ([$kicklist]!=[]) {
  2097. while ([$(#kicklist)]>mcnt){
  2098. kkick $C $decode($word($mcnt $kicklist)) $pk
  2099. @ mcnt = mcnt + 1
  2100. if ([$(#kicklist)]>mcnt) {
  2101. kkick $C $decode($word($mcnt $kicklist)) $pk
  2102. @ mcnt = mcnt + 1
  2103. }}}
  2104. ^assign -kicklist
  2105. ^assign -mcnt
  2106. }
  2107.  
  2108. ### Other KICK Routines (by YaZoO, Mods by Vassago)
  2109.  
  2110. alias fk {
  2111. if ([$0]) {
  2112. pecho FilterKick of $0 in $C started, please wait...
  2113. ^assign fkfilt $0
  2114. ^on ^who "*" {
  2115. if ((rmatch($1!$3@$4 $fkfilt))&&([$1]!=[$N])) {^assign ftbkick $encode($1) ${ftbkick}}
  2116. }
  2117. //who $C
  2118. cwait dofilterkick
  2119. }{/pecho Usage: /fk <hostname/*filter*>. Wildcards allowed.}
  2120. }
  2121.  
  2122. alias fbk {
  2123. if ([$0]) {
  2124. mmode $C +b $0
  2125. fk $0
  2126. }{/pecho Usage: /fbk <hostname/*filter*>. Wildcards allowed.}
  2127. }
  2128.  
  2129. alias dofilterkick {
  2130. @ fkcnt = 0
  2131. while ([$(#ftbkick)]>fkcnt) {
  2132. kkick $C $decode($word($fkcnt $ftbkick)) | Filter Kick $fkfilt |
  2133. @ fkcnt = fkcnt + 1
  2134. }
  2135. if ([$ftbkick]!=[]) {/pecho $fkcnt people kicked from $C with the filter $fkfilt\.}
  2136. {/pecho No one matching filter $fkfilt is in channel $C\.}
  2137. ^on who - "*"
  2138. ^assign -ftbkick
  2139. ^assign -fkfilt
  2140. }
  2141.  
  2142. alias k {
  2143. if ([$0]) {
  2144. if ([$1]) {/kkick $C $0  $1- }
  2145. {/kkick $C $0 $pk}
  2146. }{/pecho You must specify a nickname.}
  2147. }
  2148.  
  2149. ### Setaway & Setback Routines (by Vassago)
  2150.  
  2151. alias setaway {
  2152. if ([$0]!=[]) {^assign awreason $encode($0-)}
  2153. {^assign awreason $encode($defumes)}
  2154. //away $decode($awreason) \(Away since $ftm($Z) $left(10 $stime($time()))\)
  2155. //me is away - $decode($awreason) - messages will be saved.
  2156. ^assign isaway YES
  2157. ^exec echo "[$left(10 $stime($time())) $ftm($Z)] Setaway: $safe($strip(! $decode($awreason))) " >> $awayfle
  2158. @ away_messages = 0
  2159. }
  2160.  
  2161. alias away if ([$0]!=[]) {/setaway $0-}{/setback}
  2162.  
  2163. alias setback {
  2164. ^assign isaway NO
  2165. //me has returned.
  2166. //away
  2167. pecho You have $away_messages messages waiting.
  2168. ^assign temp $"[E/X] Display message file? (y/n) "
  2169. if (([$temp]==[y])||([$temp]==[yes])) {^exec cat $awayfle}
  2170. ^assign temp $"[E/X] Save message file? (y/n) "
  2171. if (([$temp]==[n])||([$temp]==[no])) {
  2172. ^on ^exec_error "awayrm *" #
  2173. ^exec -name awayrm rm $awayfle
  2174. ^wait %awayrm
  2175. ^on exec_error - "awayrm *"
  2176. pecho Setaway message list has been deleted.
  2177. }{/pecho Setaway message list has not been deleted.}
  2178. @ away_messages = 0
  2179. ^assign -temp
  2180. }
  2181.  
  2182. ### Script Variable Save Aliases (by Vassago)
  2183.  
  2184. alias adadddfriend {
  2185. @ FRIENDS[$FRIENDADD] = [$0]
  2186. @ FRIENDADD = FRIENDADD + 1
  2187. }
  2188.  
  2189. alias adadddpriv {
  2190. @ PRIVS[$PRIVADD] = [$0-]
  2191. @ PRIVADD = PRIVADD + 1
  2192. }
  2193.  
  2194. alias adadddenemy {
  2195. @ ENEMIES[$ENEMYADD] = [$0]
  2196. @ ENEMYADD = ENEMYADD + 1
  2197. }
  2198.  
  2199. alias adadddcomment {
  2200. @ COMMENTS[$COMMENTADD] = [$0-]
  2201. @ COMMENTADD = COMMENTADD + 1
  2202. }
  2203.  
  2204. alias save {
  2205. pecho Save to $phoenixfile started, please wait...
  2206. ^on ^exec_error "save *" #
  2207. ^exec -name save mv $phoenixfile $phoenixbak
  2208. wait %save
  2209. ^on ^exec_error - "save *"
  2210. ^exec -name exsve cat >> $phoenixfile
  2211. wait
  2212. ^on ^exec_error "exsve *" #
  2213. ^writeln ### Master Script Save File for Phoenix Version 2.27 from Vassago
  2214. ^writeln ### Last saved: $left(10 $stime($time())) at $ftm($Z)
  2215. pecho Saving miscellaneous script settings...
  2216. ^writeln # Miscellaneous Settings
  2217. ^writest defumes $defumes
  2218. ^writest idlemes $idlemes
  2219. ^writest pk $pk
  2220. ^writest signmsg $signmsg
  2221. ^writest usermode $usermode
  2222. ^writest idletime $idletime
  2223. ^writest bandef $bandef
  2224. ^writest set.dfbt $set.dfbt
  2225. ^writest cstat $cstat
  2226. ^writest extmes $extmes
  2227. ^writest ctcpauto $ctcpauto
  2228. ^writest autochannels $autochannels
  2229. pecho Saving Flood/Mass Protection settings...
  2230. ^writeln # Flood and Mass Protection Settings
  2231. ^writest igtypes $igtypes
  2232. ^writest prot $prot
  2233. ^writest flood_ok $flood_ok
  2234. ^writest floodp $floodp
  2235. ^writest nhp $nhp
  2236. ^writest cprot $cprot
  2237. ^writest resetcount $resetcount
  2238. ^writest ig_count $ig_count
  2239. ^writest msensor $msensor
  2240. ^writest ksensor $ksensor
  2241. ^writest msgsensor $msgsensor
  2242. ^writest noticesensor $noticesensor
  2243. ^writest ctcpsensor $ctcpsensor
  2244. ^writest nicksensor $nicksensor
  2245. pecho Saving XDCC settings...
  2246. ^writeln # XDCC Settings 
  2247. ^writest autoget $autoget
  2248. ^writest autochat $autochat
  2249. ^writest autodccvoice $autodccvoice
  2250. ^writest autosend $autosend
  2251. ^writest autoclose $autoclose
  2252. ^writest autorename $autorename
  2253. ^writest security $security
  2254. ^writest uploaddir $UPLOADDIR
  2255. ^writest downloaddir $DOWNLOADDIR
  2256. ^writest dccminspeed $dccminspeed
  2257. ^writest dcclimit $dcclimit
  2258. ^writest dcctimelimit $dcctimelimit
  2259. ^writest dccqmax $dccqmax
  2260. pecho Saving Friends and AutoBkick lists...
  2261. ^writeln # Friends List
  2262. foreach FRIENDS XX {^writeln adadddfriend $FRIENDS[$XX]}
  2263. foreach PRIVS XX {^writeln adadddpriv $PRIVS[$XX]}
  2264. ^writeln # Auto BKick List
  2265. foreach ENEMIES XX {^writeln adadddenemy $ENEMIES[$XX]}
  2266. foreach COMMENTS XX {^writeln adadddcomment $COMMENTS[$XX]}
  2267. ^writeln # Notify List
  2268. pecho Saving notify list...
  2269. @ notify_size = [$#notify.ex]
  2270. @ notify_counter = 0
  2271. while (notify_counter < notify_size) {
  2272. @ ind = 0
  2273. ^assign -notify_write
  2274. while (ind < 7) {
  2275. ^assign notify_write $notify_write $word($notify_counter $notify.ex)
  2276. @ ind = ind + 1
  2277. @ notify_counter = notify_counter + 1
  2278. }
  2279. ^writeln NOTIFY $notify_write
  2280. }
  2281. ^exec -CLOSE %exsve
  2282. wait
  2283. ^on ^exec_error - "exsve *"
  2284. pecho Save has been completed.
  2285. }
  2286.  
  2287. alias writest {
  2288. ^msg %exsve avar $0 $1-
  2289. wait
  2290. }
  2291.  
  2292. alias writeln {
  2293. ^msg %exsve $0-
  2294. wait
  2295. }
  2296.  
  2297. ### AUTOBKICK LIST Routines (by Vassago)
  2298. set INPUT_PROMPT <P-Loading Automatic Handlers> 
  2299.  
  2300. alias check_enemy {
  2301. @ FUNCTION_RETURN = 0
  2302. foreach ENEMIES XX {
  2303. if ((match($ENEMIES[$XX] $0))||(match($0 $ENEMIES[$XX]))) {@ FUNCTION_RETURN = 1}
  2304. }}
  2305.  
  2306. alias add_enemy {
  2307. @ ENTMP = rand(9999)
  2308. ^assign ENEMIES[$ENTMP] $0
  2309. makelists
  2310. if ([$1]) {
  2311. ^assign COMMENTS[$ENTMP]  $1- 
  2312. pecho Added $0 to your AutoBKick list with comment: $1-
  2313. }{/pecho Added $0 to your AutoBKick list with no comment.}
  2314. }
  2315.  
  2316. alias delete_enemy {
  2317. foreach ENEMIES XX {
  2318. if ((match($ENEMIES[$XX] $0))||(match($0 $ENEMIES[$XX]))) {
  2319. pecho Match: Removing $ENEMIES[$XX] from list.
  2320. ^assign -ENEMIES[$XX]
  2321. ^assign -COMMENTS[$XX]
  2322. makelists
  2323. }}}
  2324.  
  2325. alias addbk {
  2326. if ([$0]) {
  2327. if (rmatch($0 *@* *!* *.*)) {
  2328. if ([$check_enemy($0)]==1) {/delete_enemy $0}
  2329. add_enemy $0 $1-
  2330. }{
  2331. pecho Searching for nickname $0\...
  2332. ^assign tempcomment $1-
  2333. Userhost $0 -CMD if ([$4]!=[<UNKNOWN>]) {
  2334. ^assign TOADD $safe($3)@$4
  2335. if ([$check_enemy(*!*$TOADD)]==1) {/delete_enemy *!*$TOADD}
  2336. add_enemy $nban($safe($3) $4 *) $tempcomment
  2337. ^assign -TOADD
  2338. ^assign -tempcomment
  2339. }{/pecho I can't find $0 on IRC.}
  2340. }}{
  2341. pecho Usage: /ADDBK <nick/filter> <comment> to add a nick/filt to your
  2342. pecho AUTOBKICK list. You can place your bans in your bkick list by
  2343. pecho typing /DOBANS. If someone joins one of your channels with a
  2344. pecho user@host that matches in your list, they will be deopped,
  2345. pecho banned, and kicked from the channel automatically. 
  2346. }}
  2347.  
  2348. alias listbk {
  2349. pecho Listing Enemies/Filters in your list:
  2350. @ THELIST = 0
  2351. foreach ENEMIES XX {
  2352. @ THELIST = THELIST + 1
  2353. if ([$COMMENTS[$XX]]!=[]) {/pecho #$THELIST $ENEMIES[$XX] \($COMMENTS[$XX]\)}
  2354. {/pecho #$THELIST $ENEMIES[$XX]}
  2355. }
  2356. pecho End of AutoBKick list. A total of $THELIST people/filters.
  2357. ^assign -THELIST
  2358. }
  2359.  
  2360. alias rembk {
  2361. if ([$0]) {
  2362. if ([$0]==[ALL]) {
  2363. purge ENEMIES
  2364. purge COMMENTS
  2365. ^assign -BKLIST
  2366. pecho Your AutoBkick list has been cleared.
  2367. }{
  2368. if (rmatch($0 *@* *!* *.*)) {
  2369. if ([$check_enemy($0)]==1) {/delete_enemy $0}
  2370. {/pecho $0 is not in your AutoBKick list.}
  2371. }{
  2372. Userhost $0 -CMD if ([$4]!=[<UNKNOWN>]) {
  2373. ^assign TOREMOVE $safe($3)@$4
  2374. if ([$check_enemy(*!*$TOREMOVE)]==1) {/delete_enemy *!*$TOREMOVE}
  2375. {/pecho *!*$TOREMOVE is not in your AutoBkick list.}
  2376. ^assign -TOREMOVE
  2377. }{/pecho I can't find $0 on IRC.}}}}{
  2378. pecho Usage: /REMBK <nick or filter to remove from Auto Bkick list>.
  2379. pecho Type /REMBK ALL to clear your AutoBkick list.
  2380. }}
  2381.  
  2382. ### CTCP Friends List Functions (by Vassago)
  2383.  
  2384. alias check_friend {
  2385. @ FUNCTION_RETURN = 0
  2386. foreach FRIENDS XX {
  2387. if ((match($FRIENDS[$XX] $0))||(match($0 $FRIENDS[$XX]))) {@ FUNCTION_RETURN = 1}
  2388. }}
  2389.  
  2390. alias add_friend {
  2391. @ FRTMP = rand(9999)
  2392. ^assign FRIENDS[$FRTMP] $0
  2393. setprivs $1-
  2394. pecho Added $0 to your Friends list with
  2395. pecho CTCP access of: $PRIVS[$FRTMP]
  2396. makelists
  2397. }
  2398.  
  2399. alias delete_friend {
  2400. foreach FRIENDS XX {
  2401. if ((match($FRIENDS[$XX] $0))||(match($0 $FRIENDS[$XX]))) {
  2402. pecho Match: Removing $FRIENDS[$XX] from list.
  2403. ^assign -FRIENDS[$XX]
  2404. ^assign -PRIVS[$XX]
  2405. makelists
  2406. }}}
  2407.  
  2408. alias addf {
  2409. if ([$0]) {
  2410. if (rmatch($0 *@* *!* *.*)) {
  2411. if ([$check_friend($0)]==1) {/delete_friend $0}
  2412. add_friend $0 $1-
  2413. }{
  2414. ^assign STUFF $1-
  2415. pecho Searching for nickname $0\...
  2416. Userhost $0 -CMD if ([$4]!=[<UNKNOWN>]) {
  2417. ^assign TOADD $safe($3)@$4
  2418. if ([$check_friend($0!$TOADD)]==1) {/delete_friend $0!$TOADD}           
  2419. add_friend $nban($safe($3) $4 *) $STUFF
  2420. nnotice $0 You have been added to my Friends list with CTCP
  2421. nnotice $0 access of: $PRIVS[$FRTMP]
  2422. nnotice $0 Type /CTCP $N HELP for more information.
  2423. ^assign -STUFF
  2424. ^assign -TOADD
  2425. }{/pecho I can't find $0 on IRC.}
  2426. }}{
  2427. pecho Usage: /ADDF <nick/filter> <privileges>. Available privileges are
  2428. pecho INVITE, OP, VOICE, & XDCC. To give them all access, type /ADDF <nick/filt>
  2429. pecho ALL. To change someone's privileges, just /ADDF them again.
  2430. }}
  2431.  
  2432. alias setprivs {
  2433. ^assign -PRIVS[$FRTMP]
  2434. if ([$0]) {
  2435. if (match(INVITE $0-)) {@ PRIVS[$FRTMP] = PRIVS[$FRTMP] ## [INVITE ]}
  2436. if (match(OP $0-)) {@ PRIVS[$FRTMP] = PRIVS[$FRTMP] ## [OP ]}
  2437. if (match(VOICE $0-)) {@ PRIVS[$FRTMP] = PRIVS[$FRTMP] ## [VOICE ]}
  2438. if (match(XDCC $0-)) {@ PRIVS[$FRTMP] = PRIVS[$FRTMP] ## [XDCC ]}
  2439. if (match(ALL $0-)) {@ PRIVS[$FRTMP] = PRIVS[$FRTMP] ## [INVITE OP VOICE XDCC]}
  2440. if (!match($0 OP INVITE ALL XDCC VOICE)) {
  2441. pecho You must specify OP, INVITE, XDCC or ALL.
  2442. pecho Setting privileges to INVITE and XDCC. \(default\).
  2443. @ PRIVS[$FRTMP] = [INVITE XDCC]
  2444. }}{@ PRIVS[$FRTMP] = [INVITE XDCC]}}
  2445.  
  2446. alias listf {
  2447. pecho Listing Friends/Filters in your list and their access:
  2448. @ THELIST = 0
  2449. foreach FRIENDS XX {
  2450. @ THELIST = THELIST + 1
  2451. pecho #$THELIST $FRIENDS[$XX]
  2452. pecho    Privileges: $PRIVS[$XX]
  2453. }
  2454. pecho End of Friends list. A total of $THELIST people.
  2455. ^assign -THELIST
  2456. }
  2457.  
  2458. alias remf {
  2459. if ([$0]) {
  2460. if ([$0]==[ALL]) {
  2461. purge FRIENDS
  2462. purge PRIVS
  2463. pecho Your friends list has been cleared.
  2464. }{
  2465. if (rmatch($0 *@* *!* *.*)) {
  2466. if ([$check_friend($0)]==1) {/delete_friend $0}
  2467. {/pecho $0 is not on your Friends list.}
  2468. }{
  2469. Userhost $0 -CMD if ([$4]!=[<UNKNOWN>]) {
  2470. ^assign TOREMOVE $safe($3)@$4
  2471. if ([$check_friend($0!$TOREMOVE)]==1) {/delete_friend $0!$TOREMOVE}
  2472. {/pecho $0!$TOREMOVE is not on your Friends list.}
  2473. ^assign -TOREMOVE
  2474. }{/pecho I can't find $0 on IRC.}}}
  2475. }{
  2476. pecho Usage: /REMF <nick/filter to remove from Friends list>.
  2477. pecho To clear your friends list, type /REMF ALL.
  2478. }}
  2479.  
  2480. alias makelists {
  2481. ^assign -OPLIST
  2482. ^assign -VOICELIST
  2483. ^assign -FRIENDLIST
  2484. ^assign -INVITELIST
  2485. ^assign -SECLIST
  2486. ^assign -BKLIST
  2487. foreach FRIENDS ii {
  2488. ^assign FTMP *$uhostonly($FRIENDS[$ii])
  2489. if (match(OP $PRIVS[$ii])) {@ OPLIST = OPLIST ## [$FTMP ]}
  2490. if (match(VOICE $PRIVS[$ii])) {@ VOICELIST = VOICELIST ## [$FTMP ]}
  2491. if (match(INVITE $PRIVS[$ii])) {@ INVITELIST = INVITELIST ## [$FTMP ]}
  2492. if (match(XDCC $PRIVS[$ii])) {@ SECLIST = SECLIST ## [$FTMP ]}
  2493. @ FRIENDLIST = FRIENDLIST ## [$FTMP ]
  2494. }
  2495. foreach ENEMIES ii {@ BKLIST = BKLIST ## [$ENEMIES[$ii] ]}
  2496. }
  2497.  
  2498. alias uhostonly {
  2499. ^assign uhost_tmp $0
  2500. ^assign FUNCTION_RETURN $right(${@uhost_tmp-index(! $0)} $0)
  2501. }
  2502.  
  2503. ### Notify Functions
  2504.  
  2505. on ^notify_signon "*" {
  2506. if (V > 19931229) {
  2507. if (!_n.list) {^timer -refnum 634 4 m.notify}
  2508. ^assign _n.list $_n.list $0 
  2509. }{
  2510. ^assign _n.list $0
  2511. m.notify
  2512. }}
  2513.  
  2514. alias m.notify {
  2515. if (_n.list) {
  2516. Userhost $_n.list -cmd if ([$4]!=[<UNKNOWN>]) {
  2517. if ([$2] == [+]) {^assign tvar [Away]}{^assign -tvar}
  2518. pecho Signon at $ftm($Z) for $0 [$userdomain($strip(#~\;\$ $3)@$4)] detected. $tvar
  2519. ^assign -tvar
  2520. }}
  2521. ^assign -_n.list
  2522. }
  2523.  
  2524. on ^notify_signoff "*" pecho Signoff at $ftm($Z) for $0 detected.
  2525.  
  2526. ### NOTIFY Alias (by Vassago, based on TG's code)
  2527.  
  2528. alias notify {
  2529. if ([$0]) {
  2530. if ([$0]==[-]) {
  2531. //notify -
  2532. ^assign -notify.ex}{
  2533. if ([$left(1 $0)]==[-]) {
  2534. //notify $0
  2535. ^assign notify.ex $rem_w($mid(1 1000 $0-) $notify.ex)
  2536. if ([$1]) {/notify $1-}}{
  2537. ^assign notify.ex $notify.ex $strip(+ $0)
  2538. //notify $0
  2539. if ([$1]) {/notify $1-}}}}{
  2540. pecho Notify List: $notify.ex
  2541. //notify +
  2542. }}
  2543.  
  2544. ### Miscellaneous Functions (by Jeremy Nelson)
  2545.  
  2546. alias rem_w {
  2547. @ _pattern = rmatch($0 $1-) - 1
  2548. if (_pattern != -1) {@ function_return = notw($_pattern $1-)}
  2549. {@ function_return = [$1-]}
  2550. }
  2551. alias notw {
  2552. if ([$0]) {@ _pad = [ ]}
  2553. {@ _pad = []}
  2554. @ _words = [$1-]
  2555. @ function_return = [$leftw($0 $1-)] ## [$_pad] ## [$restw(${[$0]+1} $1-)]
  2556. }
  2557. alias leftw {@ function_return = [$(1-$0)]}
  2558. alias restw {@ function_return = [$(${[$0]+1}-)]}
  2559.  
  2560. ### Message In Window function (by Zelix [Peter Handel])
  2561.  
  2562. alias miw {
  2563. if (miws) {
  2564. pecho Closing message-in-window.
  2565. ^assign -miws
  2566. ^window refnum Messages
  2567. ^window kill Messages
  2568. }
  2569. {
  2570. pecho Opening message-in-window.
  2571. ^assign miws 1
  2572. ^window new name Messages
  2573. ^window shrink 7
  2574. ^window scroll on
  2575. ^window goto 2
  2576. }}
  2577.  
  2578. ### Miscellaneous Aliases (Credit given where due)
  2579.  
  2580. # Miscellaneous UNIX commands (so you can do stuff while in IRC)
  2581.  
  2582. alias USERS exec users
  2583. alias WHATIS exec whatis
  2584. alias WHEREIS exec whereis
  2585. alias DATE exec date
  2586. alias TAR exec tar -cf $0.tar $0
  2587. alias UNTAR exec tar -xf
  2588. alias SPING exec ping $0 | tail -2
  2589. alias WORDS exec wc
  2590. alias UPTIME exec uptime
  2591. alias RUP exec rup
  2592. alias RUSERS exec rusers
  2593. alias QUOTA exec quota -v
  2594. alias SPACE exec du -s $HOME
  2595. alias PS exec ps -x
  2596. alias PS2 exec ps -u `whoami`
  2597. alias KP exec kill -9 
  2598. alias CAL exec cal
  2599. alias LS exec ls -FC
  2600. alias LSA exec ls -aFCs
  2601. alias DIR exec ls -l
  2602. alias NSLOOKUP exec nslookup
  2603. alias FROM exec from
  2604. alias FRM exec frm
  2605. alias RM exec rm
  2606. alias MV exec mv
  2607. alias CP exec cp -r
  2608. alias MKDIR exec mkdir
  2609. alias GREP exec grep
  2610. alias CHMOD exec chmod
  2611. alias ZCAT exec zcat $0
  2612. alias FIND exec find $HOME -name $0 -print
  2613. alias FILE exec file
  2614. alias SORT exec sort
  2615. alias UNCOMPRESS exec uncompress
  2616. alias COMPRESS exec compress
  2617. alias GZIP exec gzip
  2618. alias GUNZIP exec gunzip
  2619. alias MAIL exec mail $0 < $1
  2620. alias UUENCODE exec uuencode $0 $0 > $0.uue
  2621. alias UUDECODE exec uudecode
  2622. alias UNZIP exec zcat $0 | tar xf -
  2623. alias CAT {
  2624. if ([$0]) {
  2625. @numberoflines = 0
  2626. @startingline = 0
  2627. @numlinesdisp = 0
  2628. ^assign fileview $0
  2629. ^assign startingline $1
  2630. ^assign numlinesdisp $2
  2631. ^on ^exec "nlines *" ^assign numberoflines $$1
  2632. ^exec -name nlines wc -l $fileview
  2633. ^wait %nlines
  2634. ^on exec - "nlines *"
  2635. if ([$numlinesdisp] == [0]) {^assign numlinesdisp $numberoflines}
  2636. if ([$startingline] == [0] && [$numlinesdisp] == [0]) {cat $fileview} {
  2637. @tln = numberoflines - startingline
  2638. exec tail -$tln $fileview | head -$numlinesdisp
  2639. }}{
  2640. pecho Usage: /cat <filename> <starting line> <number of lines to display>
  2641. }}
  2642.  
  2643. # SCRIPTFIX command by Vassago, just in case you are running a client
  2644. # that is partially incompatible with Phoenix and errors occur.
  2645.  
  2646. alias scriptfix {
  2647. ^set status_user  E/X
  2648. //away
  2649. ^window refnum Messages
  2650. ^window kill Messages
  2651. @ mcount = 0
  2652. @ kcount = 0
  2653. @ dccsent = 0
  2654. @ dcccount = 0
  2655. @ nickcnt = 0
  2656. @ away_messages = 0
  2657. ^assign isaway NO
  2658. ^assign -miws
  2659. ^assign -flood_ok
  2660. ^assign -lastver
  2661. ^assign -lastchat
  2662. ^assign -dccadr
  2663. ^assign -inv_chan
  2664. ^assign -nicknme
  2665. ^assign -dctemp
  2666. ^assign -filenme
  2667. ^assign -lagtime
  2668. ^assign -msglist
  2669. ^assign -lmes
  2670. ^assign -lnotice
  2671. ^assign -msghost
  2672. /clflood MSG
  2673. /clflood NOTICE
  2674. /clflood CTCP
  2675. @ msgcount = 0
  2676. @ ctcpcount = 0
  2677. @ noticecount = 0
  2678. /makelists
  2679. /chgst
  2680. /_host
  2681. EVAL $srand($time())
  2682. /quote MODE $N $usermode
  2683. /pecho Master FPhoenix variables have been reset.
  2684. }
  2685.  
  2686. # Unflash command that should work on ALL clients (by CKeeper)
  2687.  
  2688. alias unflash {
  2689. if (V <= 19930629) {
  2690. ^set status_clock c
  2691. ^type ^L
  2692. ^set status_clock \;\24r
  2693. ^type ^L
  2694. ^set status_clock m
  2695. ^type ^L
  2696. ^set status_clock ?5l
  2697. ^type ^L
  2698.  sleep 1
  2699. ^set status_clock  %T
  2700. ^type ^L
  2701. pecho Screen has been restored.}{
  2702. if ([$TTY]) {
  2703. if (match(*/* $TTY)) {^assign MYTTY $TTY} {^assign MYTTY /dev/$TTY}
  2704. ^exec -name unflash echo c >>$MYTTY
  2705. ^exec -name unflash echo \\\;\24r >>$MYTTY
  2706. ^exec -name unflash echo m >>$MYTTY
  2707. ^exec -name unflash echo ?5l >>$MYTTY
  2708. ^exec -name unflash reset >>$MYTTY
  2709. wait -CMD %unflash if (1) {^type ^L;^assign -MYTTY;pecho Screen has been restored.}}
  2710. {/pecho UNFLASH FAILED: Environment variable 'TTY' must be set to your TTY.}}
  2711. }
  2712.  
  2713. alias note if ([$0]) {
  2714. eval ^exec -name exnote echo '[$newdate($time())] $0- ' >> $exnotes
  2715. wait %exnote
  2716. pecho Note stored in $exnotes\.}{
  2717. if ([$word(0 $"Do you want to see stored memos? ")]==[Y]) {
  2718. pecho Saved notes: \(Reading file $exnotes\):
  2719. ^on ^exec_error "exnote *" {/pecho Notes file \"$exnotes\" was not found.}
  2720. eval ^exec -name exnote cat $exnotes
  2721. wait %exnote
  2722. ^on ^exec_error -"exnote *"
  2723. }}
  2724.  
  2725. alias finger {
  2726. ^exec -kill %finger
  2727. if (([$0]==[-h])&&([$1]!=[])) {
  2728. Userhost $1 -cmd if ([$3] != [<UNKNOWN>]) {
  2729. pecho Launching Host finger on: $0 -> @$4
  2730. ^eval exec -name finger exec finger @$$4
  2731. }{/pecho I can't find $0 on IRC.}}{
  2732. if (index(@ $0) > -1) {^exec -name finger exec finger $0}{
  2733. if ([$0]) {
  2734. Userhost $0 -cmd if ([$3] != [<UNKNOWN>]) {
  2735. pecho Launching finger on $0!$strip(#~!> $3)@$4
  2736. ^eval exec -name finger exec finger $strip(#~!> $3)@$$4
  2737. }{/pecho I can't find $0 on IRC.}}
  2738. {/pecho Usage: /FINGER [[-h] <nickname>][[user]@full.hostname]}
  2739. }}}
  2740.  
  2741. alias _connect {
  2742. pecho Connected to server $0, port $1.
  2743. ^assign _server $0 $1
  2744. if ([$ISAWAY]!=[YES]) {//away}
  2745. EVAL quote MODE $N $usermode
  2746. }
  2747.  
  2748. alias chgst {
  2749. if ([$cstat]==[ON]) {
  2750. ^assign ptmp $ptmp${TOTPACK}-
  2751. ^assign ptmp $ptmp${GETCOUNT}
  2752. if ([$AUTOGET] == [ON])
  2753. { ^assign ptmp ${ptmp}:G}
  2754. { ^assign ptmp ${ptmp}:g}
  2755. if ([$AUTOSEND] == [ON])
  2756. { ^assign ptmp ${ptmp}S}
  2757. { ^assign ptmp ${ptmp}s}
  2758. if ([$AUTOCLOSE] == [ON])
  2759. { ^assign ptmp ${ptmp}C}
  2760. { ^assign ptmp ${ptmp}c}
  2761. if ([$AUTORENAME]==[ON])
  2762. { ^assign ptmp ${ptmp}N}
  2763. { ^assign ptmp ${ptmp}n}
  2764. if ([$SECURITY]==[ON])
  2765. { ^assign ptmp ${ptmp}X}
  2766. { ^assign ptmp ${ptmp}x}
  2767. if ([$ctcpauto]==[ON])
  2768. { ^assign ptmp ${ptmp}A}
  2769. { ^assign ptmp ${ptmp}a}
  2770. if ([$LOGIRC] == [ON])
  2771. { ^assign ptmp ${ptmp}L}
  2772. { ^assign ptmp ${ptmp}l}
  2773. if ([$FLOODP]==[ON])
  2774. { ^assign ptmp ${ptmp}F}
  2775. { ^assign ptmp ${ptmp}f}
  2776. if ([$prot]==[ON])
  2777. { ^assign ptmp ${ptmp}M}
  2778. { ^assign ptmp ${ptmp}m}
  2779. if ([$cprot]==[ON])
  2780. { ^assign ptmp ${ptmp}P}
  2781. { ^assign ptmp ${ptmp}p}
  2782. if ([$nhp]==[ON])
  2783. { ^assign ptmp ${ptmp}H}
  2784. { ^assign ptmp ${ptmp}h}
  2785. if ([$rejoin]==[ON])
  2786. { ^assign ptmp ${ptmp}R}
  2787. { ^assign ptmp ${ptmp}r}
  2788. ^assign ptmp [${ptmp}]$OLD_STATUS
  2789. ^set STATUS_FORMAT $ptmp
  2790. ^assign -ptmp
  2791. }{^set STATUS_FORMAT $OLD_STATUS}}
  2792.  
  2793. alias _host {
  2794. EVAL Userhost $N -CMD if ([$3]) {/EVAL ^assign ownadd $0!$strip(~ $3)@$4}
  2795. {^timer 20 _host}
  2796. }
  2797.  
  2798. alias default {
  2799. pecho Setting DEFAULT Script settings.
  2800. pecho Enter deop sensitivity \(currently $msensor\).
  2801. @ temp = [$"[E/X] Deop value: "]
  2802. if (isnum($temp)==1){@ msensor = temp}
  2803. pecho Enter kick sensitivity \(currently $ksensor\).
  2804. @ temp = [$"[E/X] Kick value: "]
  2805. if (isnum($temp)==1){@ ksensor = temp}
  2806. pecho Enter nickname flood sensitivity \(currently $nicksensor\).
  2807. @ temp = [$"[E/X] Channel Nickname Flood value: "]
  2808. if (isnum($temp)==1){@ nicksensor = temp}
  2809. pecho Enter message flood sensitivity \(currently $msgsensor\).
  2810. @ temp = [$"[E/X] FloodP Msg Flood value: "]
  2811. if (isnum($temp)==1){@ msgsensor = temp}
  2812. pecho Enter notice flood sensitivity \(currently $noticesensor\).
  2813. @ temp = [$"[E/X] FloodP Notice Flood value: "]
  2814. if (isnum($temp)==1){@ noticesensor = temp}
  2815. pecho Enter CTCP flood sensitivity \(currently $ctcpsensor\).
  2816. @ temp = [$"[E/X] FloodP CTCP Flood value: "]
  2817. if (isnum($temp)==1){@ ctcpsensor = temp}
  2818. pecho Enter # of minutes auto-ignores should last \(currently $ig_count\).
  2819. @ temp = [$"[E/X] Automatic ignores last <in minutes>: "]
  2820. if (isnum($temp)==1){@ ig_count = temp}
  2821. pecho Enter the # of seconds until the timer resets \(currently $resetcount\).
  2822. @ temp = [$"[E/X] FloodP timer subtraction value: "]
  2823. if (isnum($temp)==1){@ resetcount = temp}
  2824. pecho Enter types of messages to be ignored by /IG or flood activation.
  2825. pecho Valid: MSGS CTCP NOTICES WALLS WALLOPS INVITES NOTES PUBLIC CRAP, or ALL.
  2826. pecho Currently: $igtypes
  2827. @ temp = [$"[E/X] Ignore type\(s\): "]
  2828. if (isalpha($temp)==1){@ igtypes = temp}
  2829. pecho Enter your default kick message.
  2830. pecho Currently: $pk
  2831. @ temp = [$"[E/X] Default Kick Message: "]
  2832. if (temp){@ pk = temp}
  2833. pecho Enter your default /SETAWAY message.
  2834. pecho Currently: $defumes
  2835. @ temp = [$"[E/X] Default Setaway Message: "]
  2836. if (temp){@ defumes = temp}
  2837. pecho Enter your Auto-Setaway on Idle message.
  2838. pecho Currently: $idlemes
  2839. @ temp = [$"[E/X] Auto Setaway Message: "]
  2840. if (temp){@ idlemes = temp}
  2841. pecho Enter your default /SIGNOFF message.
  2842. pecho Currently: $signmsg
  2843. @ temp = [$"[E/X] Signoff Message: "]
  2844. if (temp){@ signmsg = temp}
  2845. pecho Enter the default usermode set on server CONNECT. \(Currently $usermode\)
  2846. @ temp = [$"[E/X] Default Usermode: "]
  2847. if (temp){@ usermode = temp}
  2848. pecho Default settings complete. Type /SAVE to make them permanant.
  2849. ^assign -temp
  2850. }
  2851.  
  2852. alias signoff {
  2853. if ([$0]) {
  2854. EVAL echo *** Signoff: $N \($0-\)
  2855. //signoff $0-}{
  2856. EVAL echo *** Signoff: $N \($signmsg\)
  2857. EVAL //signoff $signmsg
  2858. }}
  2859.  
  2860. alias cycle {
  2861. pecho Cycling on channel $C\, one moment...
  2862. ^assign tmpchan $C
  2863. //part $C
  2864. cwait //join $tmpchan
  2865. ^assign -tmpchan
  2866. }
  2867.  
  2868. # Channel Stats Generator (by YaZoO)
  2869.  
  2870. alias chanst {
  2871. pecho Gathering information for channel $C\...
  2872. if ([$0]) {^assign chnl $0}
  2873. {^assign chnl $C}
  2874. @ cnscnt = 0
  2875. @ opedpl = 0
  2876. @ unoppl = 0
  2877. @ awaypl = 0
  2878. @ herepl = 0
  2879. @ ircopl = 0
  2880. ^assign -ircopz
  2881. ^on ^who "*" {
  2882. if (index(@ $2)!=-1) {@ opedpl = opedpl + 1}
  2883. {@ unoppl = unoppl + 1}
  2884. if (index(H $2)!=-1) {@ herepl = herepl + 1}
  2885. if (index(G $2)!=-1) {@ awaypl = awaypl + 1}
  2886. if (index(* $2)!=-1) {
  2887. @ ircopl = ircopl + 1
  2888. ^assign ircopz $1 ${ircopz}
  2889. }
  2890. @ cnscnt = cnscnt + 1
  2891. }
  2892. //who $chnl
  2893. cwait givestats
  2894. }
  2895.  
  2896. alias givestats {
  2897. ^on who - "*"
  2898. pecho Current channel statistics for $chnl 
  2899. pecho Total users: $cnscnt  | Ops: $opedpl | Unopped: $unoppl 
  2900. pecho Users here: $herepl  | Users Set Away: $awaypl 
  2901. if ([$ircopz]!=[]) {/pecho IRC Ops: $ircopl \( $ircopz\)}
  2902. {/pecho IRC Ops: $ircopl }
  2903. }
  2904.  
  2905. alias bye {
  2906. sf_assigning
  2907. @ byecount = [$rand($byenum)]
  2908. ^assign gone $(sf$byecount)
  2909. signoff $gone
  2910. }
  2911.  
  2912. alias sf_assigning {
  2913. ^assign byenum 50
  2914. @ sf1=[Sorrow paid for valor is too much to recall.]
  2915. @ sf2=[Destiny, the crooked schemer, says the dead shall rise again.]
  2916. @ sf3=[Demonic link?]
  2917. @ sf4=[bad, Bad, REAL BAD link?]
  2918. @ sf5=[Missing link?]
  2919. @ sf6=[Where do we go from here?]
  2920. @ sf7=[The end is finally here. God have mercy!]
  2921. @ sf8=[Sweet taste of vindication, It turns to ashes in your mouth.]
  2922. @ sf9=[If you're fighting to live, It's ok to die!]
  2923. @ sf10=[Blue sky, Black death, I'm off to meet my maker!]
  2924. @ sf11=[Jump or die!]
  2925. @ sf12=[Feeling claustrophobic, like the walls are closing in.]
  2926. @ sf13=[Killed (AliJah (Flood ME, will ya??!?@!@))]
  2927. @ sf14=[Killed (GOD (Flood ME, will ya???!?@1!@1!!))]
  2928. @ sf15=[Killed (MaSoNrY (Flood ME, will ya???!@?@!?@!))]
  2929. @ sf16=[Killed (Fred1 (Flood ME, will ya?!@?@!?@!?@!))]
  2930. @ sf17=[No escaping pain, you belong to me.]
  2931. @ sf18=[I need a ride to the morgue, that's what 911 is for.]
  2932. @ sf19=[That that doesn't kill me, only makes me stronger.]
  2933. @ sf20=[Born from the dark, in the black cloak of night.]
  2934. @ sf21=[Set the world Afire!!!]
  2935. @ sf22=[They said it'd never come, we knew it was a lie.]
  2936. @ sf23=[All forms of life die now, the humans all succumb.]
  2937. @ sf24=[Time to kiss your ass goodbye, the end has just begun.]
  2938. @ sf25=[No time to change your fate, no time left, it's too late.]
  2939. @ sf26=[And if it comes, the living will envy the dead!]
  2940. @ sf27=[No one will be left to prove the humans existed.]
  2941. @ sf28=[We all live on one planet and it will all go up in smoke.]
  2942. @ sf29=[And now the final scene, a global darkening...]
  2943. @ sf30=[Einstein said `We'll use rocks on the other side'.]
  2944. @ sf31=[Oh shit, cops at my door!1!!@!!1!1!@!@@1!!]
  2945. @ sf32=[Badd link?]
  2946. @ sf33=[Supercalifragilisticexpealidotious link?]
  2947. @ sf34=[Killed (Vassago (Hey, who said you could use my script? :>))]
  2948. @ sf35=[No Survivors!!!!!! Set the World Afire!!!!]
  2949. @ sf36=[I walk, I walk alone, into the promised land...]
  2950. @ sf37=[There's a better place for me, but it's far, far away...]
  2951. @ sf38=[Everlasting life for me, in a perfect world.]
  2952. @ sf39=[But the time has come when all things shall pass.]
  2953. @ sf40=[This good thing passed away.]
  2954. @ sf41=[I'm a child of the air, I'm a witch of the wind.]
  2955. @ sf42=[Lie, steal and cheat, a real bad guy!]
  2956. @ sf43=[I'm not a fish, I'm a man!]
  2957. @ sf44=[Perhaps I'll try real life for awhile.]
  2958. @ sf45=[Rot in hell, it's time you know...to your master, off you go!]
  2959. @ sf46=[/<rad link?]
  2960. @ sf47=[Illegal w00p by link?]
  2961. @ sf48=[Excess Lameness]
  2962. @ sf49=[Killed (Mom (Don't hang around with them!  They're troublemakers!))]
  2963. }
  2964.  
  2965. ### Ignoring/Unignoring Functions (by Vassago)
  2966.  
  2967. alias ig {
  2968. if ([$0]) {
  2969. if ([$1]) {^assign _types $1-}
  2970. if (!rmatch($0 *!* *@* *.*)) {
  2971. Userhost $0 -CMD if ([$4]!=[<UNKNOWN>]) {
  2972. ^assign to_ignore *@$4
  2973. if ([$_types]) {//^ignore $to_ignore $_types}
  2974. {//^ignore $to_ignore $igtypes}
  2975. pecho Now ignoring $0 [$3@$4].
  2976. ^assign -_types
  2977. }{/pecho I can't find $0 on IRC.}
  2978. }{
  2979. if ([$_types]) {//^ignore $0 $_types}
  2980. {//^ignore $0 $igtypes}
  2981. pecho Now ignoring $0.
  2982. ^assign -_types
  2983. }}{/pecho Usage: /IG <nickname of person to ignore by user@hostmask>.}
  2984. }
  2985.  
  2986. alias noig {
  2987. if ([$0]) {
  2988. Userhost $0 -CMD if ([$4]!=[<UNKNOWN>]) {
  2989. //^ignore $0 NONE
  2990. //^ignore *@$4 NONE
  2991. pecho $0 has been unignored.
  2992. }{/pecho I can't find $0 on IRC.}
  2993. }{/pecho Usage: /NOIG <nickname of person to unignore>.}
  2994. }
  2995.  
  2996. ### CHANNEL WALLOPS (by Eagle-1, Mods from Vassago)
  2997.  
  2998. alias wall {
  2999. if ([$C]==0) {/pecho You must be on a channel to use /WALL.}{
  3000. ^assign message $encode($0-)
  3001. pecho [WallOp/$C] $decode($message)
  3002. ^on ^names "*" sendwall $$1-
  3003. ^names $C
  3004. cwait ^on names - "*"
  3005. }}
  3006.  
  3007. alias sendwall {
  3008. if ([$0]) {
  3009. if (([$[1]0] == [@]) && ([$0] != [@] ## N)) {
  3010. if ([$sendlist]==[]) {
  3011. ^assign sendlist $strip(@ $0)
  3012. sendwall $1-
  3013. }{
  3014. ^assign sendlist $strip(@ $0),$sendlist
  3015. sendwall $1-
  3016. }}{/sendwall $1-}}{
  3017. if ([$sendlist]!=[]) {
  3018. //^notice $sendlist [WallOp/$C] $decode($message)
  3019. ^assign -sendlist
  3020. }}}
  3021.  
  3022. ### NET Alias for Window Control (by Vassago)
  3023.  
  3024. alias net {
  3025. if ([$0]) {
  3026. pecho Hit CONTROL-W then ? for help on windowing commands.
  3027. pecho Creating a window on server $0, please wait...
  3028. ^window new
  3029. if ([$1]) {/EVAL window server $0:$1::_$N}
  3030. {/EVAL window server $0:6667::_$N}}{
  3031. pecho Usage: /net <server> [<port>]
  3032. pecho  /NET creates a new window and connects it to <server>.
  3033. pecho   CONTROL-W + <Letter> is used for most window commands:
  3034. pecho   ^W? - Shows you this help screen.
  3035. pecho   ^WK - kills the current window.
  3036. pecho   ^WH - hides the current window.
  3037. pecho   ^WS - shows and balances all windows.
  3038. pecho   ^WC - clears the current window.
  3039. pecho   ^WL - lists all windows.
  3040. pecho   ^WP - Goes to the previous window.
  3041. pecho   ^WN or /wn - Goes to the next window. 
  3042. pecho   ^W<1-9> - Changes to window number <1-9>.
  3043. pecho   /wr <n> to reduce a window <n> number of lines.
  3044. pecho   /wg <n> to grow a window <n> number of lines.
  3045. }}
  3046.  
  3047. bind ^W meta2_character 
  3048. bind ^W? parse_command net
  3049. bind ^Wh parse_command window hide
  3050. bind ^Wn parse_command window next
  3051. bind ^Wp parse_command window previous
  3052. bind ^Wk parse_command window kill
  3053. bind ^Wl parse_command window list
  3054. bind ^Wc parse_command clear -a
  3055. bind ^Ws parse_command win_show
  3056. bind ^W1 parse_command window goto 1
  3057. bind ^W2 parse_command window goto 2
  3058. bind ^W3 parse_command window goto 3
  3059. bind ^W4 parse_command window goto 4
  3060. bind ^W5 parse_command window goto 5
  3061. bind ^W6 parse_command window goto 6
  3062. bind ^W7 parse_command window goto 7
  3063. bind ^W8 parse_command window goto 8
  3064. bind ^W9 parse_command window goto 9
  3065.  
  3066. alias wn window next
  3067. alias wr window shrink
  3068. alias wg window grow
  3069. alias win_show {
  3070. ^window show 2
  3071. ^window show 1
  3072. ^window balance
  3073. }
  3074.  
  3075. ### XDCC File Transfer Script (By XaBi, Extensive mods by Vassago)
  3076.  
  3077. # This is NOT the original XDCC script - it's been modified many times
  3078. # by me - XaBi's didn't have the counters or upload/download directories
  3079. # and several other things I've added or changed to work better.
  3080.  
  3081. # XDCC Counter/Limits/Idle Close (by Vassago)
  3082.  
  3083. # Using On Windows is the ONLY way to do this correctly via script (sigh)
  3084.  
  3085. set INPUT_PROMPT <P-Loading XDCC Basics> 
  3086.  
  3087. @dcchighspeed = 0
  3088.  
  3089. on ^window "% ??? DCC SEND:* %sec" if ([$1]==[***]) {
  3090. echo $1-
  3091. /subdccs
  3092. @ VAL = [$7]
  3093. @ VAL = VAL - 1
  3094. @ VAL = VAL + 1
  3095. if ( VAL > dcchighspeed )
  3096. {
  3097. @dcchighspeed = VAL
  3098. pecho New Record: $VAL\\kb/sec
  3099. }
  3100. }
  3101.  
  3102. on -window "% ??? DCC SEND:* lost" if ([$1]==[***]) {/subdccs}
  3103. on -window "% ??? DCC SEND:* closed" if ([$1]==[***]) {/subdccs}
  3104. on -window "% ??? Unable to create connection:*" if ([$1]==[***]) {/subdccs}
  3105.  
  3106. on -window "% ??? DCC SEND connection * established" if ([$1]==[***]) {
  3107. #^assign XDCC_ACTIVE_CHECK YES
  3108. #^timer 30 ^assign -XDCC_ACTIVE_CHECK
  3109. }
  3110.  
  3111. alias subdccs {
  3112. if (dccsent > 0) {@ dccsent = dccsent - 1}
  3113. if ([$gonnacount]==[]) {
  3114. ^assign gonnacount ON
  3115. ^timer 55 updatecount
  3116. }}
  3117.  
  3118. alias updatecount {
  3119. if ([$counting]!=[ON]) {
  3120. ^assign counting ON
  3121. @ dccsent = 0
  3122. ^on ^window "*" {/if ([$1]==[SEND]) {@ dccsent = dccsent + 1}}
  3123. //dcc list
  3124. ^on window - "*"
  3125. ^assign -counting
  3126. ^assign -gonnacount
  3127. }{^timer 30 updatecount}
  3128. }
  3129.  
  3130. alias iswaiting {
  3131. ^assign counting ON
  3132. ^assign dccfilename none
  3133. ^assign liststarted no
  3134. ^assign listdone no
  3135. ^assign chnick $0
  3136. ^assign chfile $1
  3137. ^assign dccwaiting no
  3138. ^on ^window "*" {
  3139. if (([$listdone]==[no])&&([$liststarted]==[yes])) {
  3140. if (([$1]==[SEND])&&([$2]==[$chnick])) {
  3141. if ([$3]==[Waiting]&&(match(*$chfile $6)==1)){
  3142. ^assign dccwaiting yes
  3143. ^assign dccfilename $6
  3144. }{
  3145. if ([$3]==[Active]&&(match(*$chfile $10)==1)){
  3146. @DCCWAITSIZE = [$8]
  3147. ^assign dccwaiting active
  3148. ^assign dccfilename $10
  3149. }}
  3150. }}{
  3151. if (([$listdone]==[no])&&([$1]==[Type])&&([$2]==[nick])&&([$3]==[status])) {^assign liststarted yes}}}
  3152. //dcc list
  3153. ^on window - "*"
  3154. if ([$liststarted]==[no]) {^assign dccwaiting dunno}
  3155. ^assign -listdone
  3156. ^assign -liststarted
  3157. ^assign -chnick
  3158. ^assign -chfile
  3159. ^assign -counting 
  3160. }
  3161.  
  3162. alias checksend {
  3163. iswaiting $0 $1
  3164. if ([$dccwaiting]==[dunno]) {^timer 1 checksend $0 $1}{
  3165. if ([$dccwaiting]==[yes]) {
  3166. ^timer 60 closesend $0 $1
  3167. if ([$lastnotdcc]!=[$0]) {
  3168. Userhost $0 -CMD if ([$4]!=[<UNKNOWN>]) {
  3169. nnotice $0 You have DCCs pending. Type /DCC GET $N\.
  3170. }{
  3171. ^timer 1 closesend $0 $1
  3172. }
  3173. ^assign lastnotdcc $0
  3174. tref 508 15 ^assign -lastnotdcc}}}
  3175. ^assign -dccwaiting
  3176. ^assign -dccfilename
  3177. }
  3178.  
  3179. alias checkspeed {
  3180. iswaiting $0 $1
  3181. if ( [$dccwaiting]==[active]) {
  3182. ^timer 20 __checkspeed $0 $1 $2
  3183. }{
  3184. if ( [$dccwaiting]==[yes]) {
  3185. ^timer 2 checkspeed $0 $1 $2
  3186. }}}
  3187.  
  3188. alias __checkspeed {
  3189. iswaiting $0 $1
  3190. if ([$dccwaiting]==[active]) {
  3191. @ DCCWAITSIZE = DCCWAITSIZE / 20
  3192. @ DCCWAITSIZE = DCCWAITSIZE / 1000
  3193.  
  3194. pecho MINSPEED: $0: $DCCWAITSIZE\ kb/sec [$1]
  3195.  
  3196. @ ONESPEED = [$2] + 0
  3197. @ TOOSLOW = 0
  3198. if ( ONESPEED > 0 ) {
  3199.   if ( DCCWAITSIZE < ONESPEED ) {
  3200.     @ TOOSLOW = ONESPEED
  3201.   }
  3202. }{
  3203. if ( (dccminspeed > 0) && (DCCWAITSIZE < dccminspeed) ) {
  3204.   @ TOOSLOW = dccminspeed
  3205. }}
  3206.  
  3207. if ( TOOSLOW > 0 ) {
  3208. pecho MINSPEED: Speed less than $TOOSLOW\: Closing connection.
  3209. nnotice $0 MINSPEED: $DCCWAITSIZE\kb/sec less than $TOOSLOW\kb/sec: Closing connection.
  3210. ^dcs $0 $1
  3211. }
  3212. }}
  3213.  
  3214. alias closesend {
  3215. iswaiting $0 $1
  3216. if ([$dccwaiting]==[dunno]) {^timer 1 closesend $0 $1}
  3217. {
  3218. if ([$dccwaiting]==[yes]) {
  3219. Userhost $0 -CMD if ([$4]!=[<UNKNOWN>]) {
  3220. nnotice $0 Timeout: $dccfilename
  3221. }
  3222. //^dcc close send $0 $dccfilename
  3223. ^subdccs
  3224. if ([$lastnotdcc]!=[$0]) {
  3225. pecho One or more DCC SENDs to $0 have timed out.
  3226. ^assign lastnotdcc $0
  3227. tref 509 30 ^assign -lastnotdcc}}}
  3228. ^assign -dccfilename
  3229. }
  3230.  
  3231. alias clampsend {
  3232. iswaiting $0 $1
  3233. if ([$dccwaiting]==[dunno]) {^timer 1 clampsend $0 $1}
  3234. {
  3235. if ([$dccwaiting]==[active]) {
  3236. Userhost $0 -CMD if ([$4]!=[<UNKNOWN>]) {
  3237. nnotice $0 Clamp Timeout: $dccfilename
  3238. }
  3239. //^dcc close send $0 $dccfilename
  3240. ^subdccs
  3241. pecho Clamp Timeout:\ DCC SEND to $0 timed out.
  3242. }}
  3243. ^assign -dccfilename
  3244. }
  3245.  
  3246. alias xdccmsg {
  3247. timer 0 _xdccmsg $0-
  3248. }
  3249.  
  3250. alias _xdccmsg {
  3251. if ([$hostonly($1)]!=[$LASTXDCCMSG]) {
  3252. if (match($2 HELP LIST SEND QUEUE OVERVIEW))
  3253. {/$2COMMAND $0 $1 $3-}
  3254. {/nnotice $0 Try /MSG $N XDCC HELP.}
  3255. ^assign LASTXDCCMSG $hostonly($0)
  3256. tref 510 5 ^assign -LASTXDCCMSG
  3257. }}
  3258.  
  3259. set INPUT_PROMPT <P-Loading XDCC Commands> 
  3260.  
  3261. alias HELPcommand {
  3262. if ([$hostonly($1)]!=[$LASTHELPED]) {
  3263. nnotice $0 /MSG $N XDCC LIST - to get the list of offered packs.
  3264. nnotice $0 /MSG $N XDCC LIST #<N> - to get more info on pack #<N>.
  3265. nnotice $0 /MSG $N XDCC SEND #<N> - to send pack #<N>.
  3266. ^assign LASTHELPED $hostonly($1)
  3267. tref 511 45 ^assign -LASTHELPED
  3268. }}
  3269.  
  3270. alias QUEUEcommand {
  3271. if ([$hostonly($1)]!=[$lastqueuer]) {
  3272.  
  3273. ^assign lastqueuer $hostonly($1)
  3274. tref 610 15 ^assign -lastqueuer
  3275.  
  3276. if (([$SECURITY]==[OFF])||([$sec_check($0!$1)] == [YES])) {
  3277. qecho Queue listing request from $0 [$safe($1)]
  3278. _qinform $0
  3279. nnotice $0 Queue Length: $QNICKMAX / $dccqmax
  3280. @ QNICK = 1
  3281.  
  3282. while ( QNICK <= QNICKMAX ) {
  3283.   if ( QCOUNT[$QNICK] == 0 ) {
  3284.     ^timer $QNICK nnotice $0  #$QNICK $QUEUENICK[$QNICK]\: Empty.
  3285.   }{
  3286.   if ( QCOUNT[$QNICK] == 1 ) {
  3287.     ^timer $QNICK nnotice $0  #$QNICK $QUEUENICK[$QNICK]\: 1 file.
  3288.   }{
  3289.     ^timer $QNICK nnotice $0  #$QNICK $QUEUENICK[$QNICK]\: $QCOUNT[$QNICK] files.
  3290.   }}
  3291.   @ QNICK = QNICK + 1  
  3292. }}}}
  3293.  
  3294. alias __listcheck {
  3295. if ( [$PLISTQUEUE] != [] ) {
  3296. __listsend $PLISTQUEUE
  3297. @ PLISTQUEUE = []
  3298. }}
  3299.  
  3300. alias __listsend {
  3301. @ COUNT0 = 1
  3302. @ _dcctemp = dcclimit - dccsent
  3303. # nnotice $0 Pack Description\
  3304. _plistheader
  3305. nnotice $0 $PLISTTMP
  3306. __plistprepare
  3307. while (COUNT0 <= TOTPACK) {
  3308. __plistformat $COUNT0
  3309. nnotice $0 $PLISTFOR
  3310. if ([$ARRAYNOTE[$COUNT0]] != []) {
  3311. nnotice $0 \ ^-\ $ARRAYNOTE[$COUNT0]
  3312. }
  3313. @ COUNT0 = COUNT0 + 1
  3314. }
  3315. sdcc
  3316. nnotice $0 Total Offered: $OMegz\.$OMegRem\ MB  Total Snagged: $LMegz\ MB
  3317. }
  3318.  
  3319. alias LISTcommand {
  3320. if ([$hostonly($1)]!=[$lastlister]) {
  3321. if (([$SECURITY]==[OFF])||([$sec_check($0!$1)] == [YES])) {
  3322. _qinform $0
  3323. if ([$2]) {
  3324. if ([$[1]2] == [#]) {
  3325. @ TEMP = [$2]
  3326. @ NUM  = right(${@TEMP-index(# $2)+1} $2)
  3327. if (NUM <= TOTPACK) {
  3328. qecho List of pack #$NUM request received from $0.
  3329. @ TEMPFILE = []
  3330. @ TEMPTOT  = 0
  3331. @ COUNT0   = 1
  3332. nnotice $0 Pack: $ARRAYDESC[$NUM]
  3333. nnotice $0 Length     File
  3334. while (COUNT0 <= ARRAYTOTF[$NUM]) {
  3335. nnotice $0 $[10]ARRAYLENG[$NUM][$COUNT0] $X_FILE($ARRAYFILE[$NUM][$COUNT0])
  3336. @ TEMPTOT  = TEMPTOT + ARRAYLENG[$NUM][$COUNT0]
  3337. @ COUNT0   = COUNT0 + 1
  3338. }
  3339. nnotice $0 ---------- -------------------------------------------------
  3340. nnotice $0 $[10]TEMPTOT $ARRAYTOTF[$NUM] file\(s\) :: $XDCCount[$NUM]\ Snags
  3341. }{
  3342. nnotice $0 Pack $2 doesn't exist. Try /MSG $N XDCC LIST}}
  3343. {/nnotice $0 XDCC LIST $2 is invalid. /MSG $N XDCC HELP.}}{
  3344. if (TOTPACK > 0) {
  3345. qecho All pack list request from $0 [$safe($1)]
  3346. @ PLISTQUEUE = [$PLISTQUEUE\,$0]
  3347. }{/nnotice $0 No files offered.}}
  3348. ^assign lastlister $hostonly($1)
  3349. tref 512 15 ^assign -lastlister
  3350. }{
  3351. nnotice $0 No files offered.
  3352. pecho Unregistered XDCC LIST request from $0 [$Userdomain($1)]
  3353. }}}
  3354.  
  3355. alias OVERVIEWcommand {
  3356. if ([$hostonly($1)]!=[$lastoverviewer]) {
  3357. if (([$SECURITY]==[OFF])||([$sec_check($0!$1)] == [YES])) {
  3358. if (TOTPACK > 0) {
  3359. _qinform $0
  3360. qecho Overview request from $0 [$safe($1)]
  3361. @ _dcctemp = dcclimit - dccsent
  3362.  
  3363. _plistheader
  3364. nnotice $0 $PLISTTMP
  3365. sdcc
  3366. nnotice $0 Total Offered: $OMegz\.$OMegRem\ MB  Total Snagged: $LMegz\ MB
  3367. }
  3368. {nnotice $0 No files offered.}}
  3369. ^assign lastoverviewer $hostonly($1)
  3370. tref 611 15 ^assign -lastoverviewer
  3371. }}
  3372.  
  3373. alias SENDcommand {
  3374. if ([$AUTOSEND] == [ON] || [$MYSEND] == [YES]) {
  3375. if (([$SECURITY]==[OFF])||([$sec_check($0!$1)] == [YES])) {
  3376. if (([$2]!=[])&&(isnum($2))&&(isalpha($2)==0)) {
  3377. if ([$[1]2] == [#]) {
  3378. @ TEMP = [$2]
  3379. @ NUM  = right(${@TEMP-index(# $2)+1} $2)
  3380. if ((NUM > 0) && (NUM <= TOTPACK)) { 
  3381. @ dcctmp = dcclimit - dccsent
  3382.  
  3383. @ COUNT1 = 1
  3384. @ TEMPTOT = 0
  3385. @ QPARTS = 0
  3386. @ EPARTS = 0
  3387. @ QFOUND = 1
  3388.  
  3389. # Let's see if the queue is full.
  3390. if ( (dccqmax > 0) && (dccsent >= dcclimit) && (QNICKMAX >= dccqmax) ) {
  3391.   @ QFOUND = 0
  3392.   while ( QNICK <= QNICKMAX ) {
  3393.     if ( [$0] == [$QUEUENICK[$QNICK]] ) {
  3394.       @ QNICK = QNICKMAX
  3395.       @ QFOUND = 1
  3396.     }
  3397.     @ QNICK = QNICK + 1
  3398.   }
  3399. }
  3400.  
  3401. if ( QFOUND == 0 ) {
  3402.   qecho Request denied: Queue full: $2\ to $0\ [$safe($1)]
  3403.   nnotice $0 All $dcclimit slots are full--queue of $QNICKMAX is full.  Try again later.
  3404. }{
  3405.  
  3406. while (COUNT1 <= ARRAYTOTF[$NUM]) {
  3407. qpdcc send $0 $ARRAYFILE[$NUM][$COUNT1] $ARRAYSPEED[$NUM]
  3408. @ TEMPTOT = TEMPTOT + ARRAYLENG[$NUM][$COUNT1]
  3409. @ COUNT1 = COUNT1 + 1
  3410. }
  3411.  
  3412. if ( QPARTS == 0 )
  3413. {
  3414.   qecho Sending $2\ to $0\ [$safe($1)]
  3415.   if ( EPARTS == 1 ) {
  3416.   nnotice $0 Sending\ you $ARRAYDESC[$NUM]\, which is one file.
  3417.   }{
  3418.   nnotice $0 Sending\ you $ARRAYDESC[$NUM]\, which is $EPARTS\ files.
  3419. }}{
  3420. if ( EPARTS == 0 )
  3421. {
  3422.   qecho Queuing $2\ to $0\ [$safe($1)]
  3423.   if ( QPARTS == 1 ) {
  3424.   nnotice $0 DCC Limit reached:\ Will send you $ARRAYDESC[$NUM]\, which is one file, when a slot opens.
  3425.   }{
  3426.   nnotice $0 DCC Limit reached:\ Will send you $ARRAYDESC[$NUM]\, which is $QPARTS files, as slots open.
  3427.   }
  3428. }{
  3429.   @TPARTS = QPARTS + EPARTS
  3430.   qecho Sending $EPARTS\/$TPARTS of $2\ to $0\ [$safe($1)]
  3431.   nnotice $0 Sending\ you $EPARTS\ of $TPARTS\ files in $ARRAYDESC[$NUM]\.  The last $QPARTS\ will follow as more slots open.
  3432. }}
  3433.  
  3434. @ XDCCount[$NUM] = XDCCount[$NUM] + 1
  3435. @ TEMPTOT = TEMPTOT / 1000
  3436. #nnotice $0 Total files: $ARRAYTOTF[$NUM]\.  You'll need $TEMPTOT\kb free.
  3437.  
  3438. }}{/nnotice $0 File $2 does not exist. /MSG $N XDCC LIST.}
  3439. }{/nnotice $0 XDCC SEND $2 is invalid. /MSG $N XDCC HELP.}}
  3440. {/nnotice $0 There is no such file.}
  3441. }{
  3442. nnotice $0 There is no such file.
  3443. pecho Unregistered user XDCC SEND request from $0 [$1].}}{
  3444. nnotice $0 That function has been disabled.
  3445. }
  3446. }
  3447.  
  3448. alias xdcc {
  3449. if (match($0 LOAD PSEND CLOSE SAVE GET DIR AUTOCLOSE AUTOCHAT AUTODCCVOICE HELP LIST PLIST SEND STATUS NOTICE OFFER DOFFER LIMIT MINSPEED PMIN QMAX TIMELIMIT AUTOGET AUTOSEND GLIST OVERWRITE ULDIR DLDIR AUTORENAME SEC NOTE DESC FILE))
  3450. {$0MCOMMAND $1-}{/HELPMCOMMAND}
  3451. }
  3452.  
  3453. alias LIMITmcommand {
  3454. if ([$0]!=[])
  3455. {
  3456. ^assign TMPLIMIT $0
  3457. }
  3458. {
  3459. ^assign TMPLIMIT $word(0 $"[E/X] Enter new limit for DCC SENDS: ")
  3460. }
  3461. if ([$TMPLIMIT]!=[]) {
  3462. if (isnum($TMPLIMIT)) {@ dcclimit = TMPLIMIT}
  3463. ^assign -TMPLIMIT
  3464. }
  3465. pecho XDCC Limit: $dcclimit\
  3466. }
  3467.  
  3468. alias QMAXmcommand {
  3469. if ([$0]!=[])
  3470. {
  3471. ^assign TMPLIMIT $0
  3472. }
  3473. {
  3474. ^assign TMPLIMIT $word(0 $"[E/X] Enter new maximum number of people in the queue: ")
  3475. }
  3476. if ([$TMPLIMIT]!=[]) {
  3477. if (isnum($TMPLIMIT)) {@ dccqmax = TMPLIMIT}
  3478. ^assign -TMPLIMIT
  3479. }
  3480. if ( dccqmax == 0 ) {
  3481.  pecho XDCC Qmax: 0 - Unlimited\
  3482. }{
  3483.  pecho XDCC Qmax: $dccqmax\
  3484. }
  3485. }
  3486.  
  3487. alias MINSPEEDmcommand {
  3488. if ([$0]!=[])
  3489. {
  3490. ^assign TMPLIMIT $0
  3491. }
  3492. {
  3493. ^assign TMPLIMIT $word(0 $"[E/X] Enter new minspeed for DCC SENDS in kb/sec: ")
  3494. }
  3495. if ([$TMPLIMIT]!=[]) {
  3496. if (isnum($TMPLIMIT)) {@ dccminspeed = TMPLIMIT}
  3497. ^assign -TMPLIMIT
  3498. }
  3499. pecho XDCC Minspeed: $dccminspeed\ kb/sec
  3500. }
  3501.  
  3502. alias TIMELIMITmcommand {
  3503. if ([$0]!=[])
  3504. {
  3505. ^assign TMPLIMIT $0
  3506. }
  3507. {
  3508. ^assign TMPLIMIT $word(0 $"[E/X] Enter new time limit for DCC SENDS (mins): ")
  3509. }
  3510. if ([$TMPLIMIT]!=[]) {
  3511. if (isnum($TMPLIMIT)) {@ dcctimelimit = TMPLIMIT}
  3512. ^assign -TMPLIMIT
  3513. }
  3514. pecho XDCC Timelimit: $dcctimelimit\
  3515. }
  3516.  
  3517. alias PSENDmcommand {
  3518. if (TOTPACK > 0)
  3519. { @ TMPVAR = []
  3520. @ NICKLIST = []
  3521. if ([$0]!=[])
  3522. {
  3523. ^assign TMPVAR $0
  3524. }
  3525. {
  3526. ^assign TMPVAR $"[E/X] Pack to send: "
  3527. }
  3528. if ([$TMPVAR]!=[])
  3529. { if (TMPVAR <= TOTPACK)
  3530. {
  3531. if ([$1])
  3532. {
  3533.  ^assign NICKLIST $1-
  3534. }
  3535. {
  3536.  ^assign NICKLIST $"[E/X] Nicks: "
  3537. }
  3538. if ([$NICKLIST])
  3539. { @ COUNT2 = 0
  3540. @ MYSEND = [YES]
  3541. while (word($COUNT2 $NICKLIST))
  3542. {
  3543. @ olddcclimit = dcclimit
  3544. @ dcclimit = 999
  3545.  SENDcommand $word($COUNT2 $NICKLIST) psend #$TMPVAR
  3546. @ dcclimit = olddcclimit
  3547. @ COUNT2 = COUNT2 + 1}
  3548. @ MYSEND = [NO]}}{/pecho Pack #$TMPVAR doesn't exist. Try /XDCC LIST.}}}
  3549. {/pecho There are no packs created.}}
  3550.  
  3551. alias FILEmcommand {
  3552. if ([$0]) {
  3553. if ([$[1]0] == [#]) {
  3554. @ TEMP = [$0]
  3555. @ NUM  = right(${@TEMP-index(# $0)+1} $0)
  3556. if ( (NUM > 0) && (NUM <= TOTPACK)) {
  3557. pecho Changing files for pack #$NUM
  3558. ^assign -TMPVAR
  3559. ^assign TMPVAR $"[E/X] Files: "
  3560. if ([$TMPVAR])
  3561. { if ([$getdir()] == [OK])
  3562. {
  3563. @ COUNT = 1
  3564. @ SENDTOTAL = 0
  3565. while (COUNT <= FILECOUNT)
  3566. { @ ARRAYFILE[$NUM][$COUNT] = [$FILELIST[$COUNT]]
  3567. @ ARRAYLENG[$NUM][$COUNT] = [$FILELENG[$COUNT]]
  3568. @ SENDTOTAL = SENDTOTAL + FILELENG[$COUNT]
  3569. @ ARRAYTOTF[$NUM] = [$FILECOUNT]
  3570. @ ARRAYSPEED[$NUM] = 0
  3571. @ COUNT = COUNT + 1 }
  3572. __calcsize $NUM
  3573. LISTmcommand #$NUM
  3574. }{
  3575. pecho File not found.
  3576. }}}{
  3577. pecho There aren't that many packs offered.
  3578. }}{
  3579. pecho Syntax: /xdcc file #X
  3580. }}}
  3581.  
  3582. alias NOTEmcommand {
  3583. if ([$0]) {
  3584. if ([$[1]0] == [#]) {
  3585. @ TEMP = [$0]
  3586. @ NUM  = right(${@TEMP-index(# $0)+1} $0)
  3587. if ( (NUM > 0) && (NUM <= TOTPACK)) {
  3588. pecho Changing note for pack #$NUM
  3589. ^assign -TMPNOTEM
  3590. ^assign TMPNOTEM $"[E/X] Note: "
  3591. @ ARRAYNOTE[$NUM] = [$TMPNOTEM]
  3592. LISTmcommand #$NUM
  3593. }{
  3594. pecho There aren't that many packs offered.
  3595. }}{
  3596. pecho Syntax: /xdcc note #X
  3597. }}}
  3598.  
  3599. alias DESCmcommand {
  3600. if ([$0]) {
  3601. if ([$[1]0] == [#]) {
  3602. @ TEMP = [$0]
  3603. @ NUM  = right(${@TEMP-index(# $0)+1} $0)
  3604. if ( (NUM > 0) && (NUM <= TOTPACK)) {
  3605. pecho Changing desc for pack #$NUM
  3606. ^assign -TMPDESC
  3607. ^assign TMPDESC $"[E/X] Description: "
  3608. @ ARRAYDESC[$NUM] = [$TMPDESC]
  3609. LISTmcommand #$NUM
  3610. }{
  3611. pecho There aren't that many packs offered.
  3612. }}{
  3613. pecho Syntax: /xdcc desc #X
  3614. }}}
  3615.  
  3616. alias PMINmcommand {
  3617. if ([$0]) {
  3618. if ([$[1]0] == [#]) {
  3619. @ TEMP = [$0]
  3620. @ NUM  = right(${@TEMP-index(# $0)+1} $0)
  3621. if ( (NUM > 0) && (NUM <= TOTPACK)) {
  3622. pecho Changing minspeed for pack #$NUM
  3623. ^assign -TMPDESC
  3624. ^assign TMPDESC $"[E/X] Minspeed in kb/sec: "
  3625. @ ARRAYSPEED[$NUM] = [$TMPDESC]
  3626. LISTmcommand #$NUM
  3627. }{
  3628. pecho There aren't that many packs offered.
  3629. }}{
  3630. pecho Syntax: /xdcc pmin #X
  3631. }}}
  3632.  
  3633. alias LISTmcommand {
  3634. if ([$0]) {
  3635. if ([$[1]0] == [#]) {
  3636. @ TEMP = [$0]
  3637. @ NUM  = right(${@TEMP-index(# $0)+1} $0)
  3638. if (NUM <= TOTPACK) {
  3639. @ COUNT2 = 1
  3640. @ TEMPTOT = 0
  3641. pecho PACK: $ARRAYDESC[$NUM]
  3642. while (COUNT2 <= ARRAYTOTf[$NUM]) {
  3643. pecho FILE: $ARRAYFILE[$NUM][$COUNT2]
  3644. @ TEMPTOT = TEMPTOT + ARRAYLENG[$NUM][$COUNT2]
  3645. @ COUNT2 = COUNT2 + 1
  3646. }
  3647. pecho Total: $TEMPTOT Bytes on $ARRAYTOTF[$NUM] file\(s\) :: $XDCCount[$NUM] snags} {/pecho Pack $0 doesn't exist.}
  3648. }
  3649. {/pecho Usage: /XDCC LIST <Pack #>}}{
  3650. if (TOTPACK > 0) {
  3651. @ COUNT2 = 1
  3652. #pecho Pack Description\
  3653. @ _dcctemp = dcclimit - dccsent
  3654.  
  3655. _plistheader
  3656. pecho $PLISTTMP
  3657. ^assign -_dcctemp
  3658. __plistprepare
  3659. while (COUNT2 <= TOTPACK) {
  3660. __plistformat $COUNT2
  3661. pecho $PLISTFOR
  3662. if ([$ARRAYNOTE[$COUNT2]] != []) {
  3663. pecho \ ^-\ $ARRAYNOTE[$COUNT2]
  3664. }
  3665. @ COUNT2 = COUNT2 + 1}
  3666. sdcc
  3667. #pecho $String
  3668. pecho Total Offered: $OMegz\.$OMegRem\ MB  Total Snagged: $LMegz\ MB
  3669. }
  3670. {/pecho There are no files offered.
  3671. }}}
  3672.  
  3673. alias NOTICEmcommand
  3674. {
  3675. if (TOTPACK > 0) {
  3676. _plistheader
  3677. //say $PLISTTMP\. Use "/msg $N xdcc list" for a detailed listing.
  3678. }{
  3679. pecho You're not offering anything.
  3680. }}
  3681.  
  3682. alias pnotice NOTICEmcommand
  3683.  
  3684. alias __plistprepare {
  3685. @PREPCOUNT = 0
  3686. @PLISTSNAG = 1
  3687.  
  3688. while (PREPCOUNT <= TOTPACK) {
  3689. if ( (XDCCount[$PREPCOUNT] >= 10000) && (PLISTSNAG <= 4) ) {
  3690.  @PLISTSNAG = 5
  3691. }{
  3692. if ( (XDCCount[$PREPCOUNT] >= 1000) && (PLISTSNAG <= 3) ) {
  3693.  @PLISTSNAG = 4
  3694. }{
  3695. if ( (XDCCount[$PREPCOUNT] >= 100) && (PLISTSNAG <= 2) ) {
  3696.  @PLISTSNAG = 3
  3697. }{
  3698. if ( (XDCCount[$PREPCOUNT] >= 10) && (PLISTSNAG <= 1) ) {
  3699.  @PLISTSNAG = 2
  3700. }}}}
  3701. @PREPCOUNT = PREPCOUNT + 1
  3702. }
  3703. }
  3704.  
  3705. alias __plistformat {
  3706. @NUM = [$0]
  3707.  
  3708. if ( TOTPACK >= 10 )
  3709. {@PLISTC = [#$[2]NUM\]}
  3710. {@PLISTC = [#$[1]NUM\]
  3711. if ( PLISTSNAG == 1 )
  3712.  {@PLISTSNAG = 2}
  3713. }
  3714.  
  3715. if ( PLISTSNAG == 5 )
  3716. {@PLISTD = [$[-5]XDCCount[$NUM]x]}{
  3717. if ( PLISTSNAG == 4 )
  3718. {@PLISTD = [$[-4]XDCCount[$NUM]x]}{
  3719. if ( PLISTSNAG == 3 )
  3720. {@PLISTD = [$[-3]XDCCount[$NUM]x]}{
  3721. if ( PLISTSNAG == 2 )
  3722. {@PLISTD = [$[-2]XDCCount[$NUM]x]}
  3723. {@PLISTD = [$XDCCount[$NUM]x]}
  3724. }}}
  3725.  
  3726. @PLISTS = [$[-9]ARRAYSIZE[$NUM]]
  3727.  
  3728. @PLISTFOR = [$PLISTC $PLISTD$PLISTS $ARRAYDESC[$NUM]]
  3729. if ( ARRAYSPEED[$NUM] > 0 ) {
  3730.  @PLISTFOR = [$PLISTFOR |\\$ARRAYSPEED[$NUM]\kbs min\|\]
  3731. }
  3732. }
  3733.  
  3734. alias _plistheader {
  3735. @ _dcctemp = dcclimit - dccsent
  3736.  
  3737. @PLISTTMP = [**\ $TOTPACK]
  3738. if ( TOTPACK == 1 ) {
  3739. @PLISTTMP = [$PLISTTMP pack]
  3740. }{
  3741. @PLISTTMP = [$PLISTTMP packs]
  3742. }
  3743.  
  3744. @PLISTTMP = [$PLISTTMP **\  $_dcctemp\ of $dcclimit\ slots open]
  3745.  
  3746. if ( QNICKMAX > 0 ) {
  3747. if ( dccqmax > 0 ) {
  3748. @PLISTTMP = [$PLISTTMP\, queue: $QNICKMAX\/$dccqmax\\.]
  3749. }{
  3750. @PLISTTMP = [$PLISTTMP\, queue: $QNICKMAX\\.]
  3751. }{
  3752. @PLISTTMP = [$PLISTTMP\.]
  3753. }}
  3754.  
  3755. if ( dccminspeed > 0 ) {
  3756. @PLISTTMP = [$PLISTTMP Min: $dccminspeed\kb\\/s,]
  3757. }
  3758. @PLISTTMP = [$PLISTTMP Record: $dcchighspeed\kb\\/s]
  3759. }
  3760.  
  3761. alias PLISTmcommand {
  3762.  
  3763. if (TOTPACK > 0) {
  3764. ^assign PUBQUIET ON
  3765. _plistheader
  3766. if ([$0]) {
  3767. if ([$1]==[AUTO]) {
  3768. pecho Automatic Plist sent to $0\.
  3769. msg $0 $PLISTTMP
  3770. }{
  3771. pecho Plist sent to $0\.
  3772. _qinform $0
  3773. nnotice $0 $PLISTTMP
  3774. }
  3775. }{
  3776. pecho Plist sent to $C\.
  3777. //say $PLISTTMP
  3778. }
  3779.  
  3780. ^assign -_dcctemp
  3781. @ COUNT3 = 1
  3782. __plistprepare
  3783. while (COUNT3 <= TOTPACK) {
  3784. __plistformat $COUNT3
  3785. if ([$0]) {
  3786. if ([$1]==[AUTO]) {
  3787. msg $0 $PLISTFOR
  3788. }{
  3789. nnotice $0 $PLISTFOR
  3790. }}{
  3791. //say $PLISTFOR
  3792. }
  3793. if ([$ARRAYNOTE[$COUNT3]] != []) {
  3794. @ PLISTNOTE = [\ ^-\ $ARRAYNOTE[$COUNT3]]
  3795. if ([$0]) {
  3796. if ([$1]==[AUTO]) {
  3797. msg $0 $PLISTNOTE
  3798. }{
  3799. nnotice $0 $PLISTNOTE
  3800. }}{
  3801. //say $PLISTNOTE
  3802. }
  3803. }
  3804. @ COUNT3 = COUNT3 + 1
  3805. }
  3806. ^assign -PUBQUIET
  3807. #sdcc
  3808. }{/pecho There are no files offered.}}
  3809.  
  3810. alias SENDmcommand {
  3811. @ NICKLIST = []
  3812. @ TMPVAR = []
  3813. if ([$0]) {@ TMPVAR = [$0]}
  3814. {^assign TMPVAR $"[E/X] Files to send: "}
  3815. if ([$TMPVAR]!=[]) {
  3816. if ([$getdir()] == [OK]) {
  3817. if ([$1]) {@ NICKLIST = [$1-]}
  3818. {^assign NICKLIST $"[E/X] Nicks: "
  3819. }
  3820. if ([$NICKLIST]!=[]) {
  3821. dosend
  3822. pecho Send finished.
  3823. }}{/pecho Please check the files.}}}
  3824.  
  3825. set INPUT_PROMPT <P-Loading XDCC Queues> 
  3826.  
  3827. alias getdir {
  3828. @ FILECOUNT = 0
  3829. ^on -exec_error "DIR1 *" {/pecho Error: $1-}
  3830. ^on ^exec "DIR1 *" addfile $$1-
  3831. @ COUNT4 = 0
  3832. while (word($COUNT4 $TMPVAR))
  3833. { @ TMPFILE = word($COUNT4 $TMPVAR)
  3834. if ([$[1]TMPFILE] == [/]) {}
  3835. { @ TMPFILE = [$UPLOADDIR/$TMPFILE] }
  3836. ^exec -name DIR1 ls -ld $TMPFILE
  3837. ^wait %DIR1
  3838. @ COUNT4 = COUNT4 + 1 }
  3839. if ( FILECOUNT == 0 )
  3840. { @ function_return = [ERROR] }
  3841. { @ function_return = [OK]
  3842. }}
  3843.  
  3844. alias addfile {
  3845. if ([$[1]0] == [-])
  3846. { @ FILECOUNT = FILECOUNT + 1
  3847. if ([$8])
  3848. { @ FILELIST[$FILECOUNT] = [$8]
  3849. @ FILELENG[$FILECOUNT] = [$4] }
  3850. { @ FILELIST[$FILECOUNT] = [$7]
  3851. @ FILELENG[$FILECOUNT] = [$3]
  3852. }}}
  3853.  
  3854. alias dosend {
  3855. @ COUNT5 = 0
  3856. while (word($COUNT5 $NICKLIST))
  3857. { @ COUNT6  = 1
  3858. @ SENDTOT = 0
  3859. while (COUNT6 <= FILECOUNT)
  3860. {
  3861. ^edcc send $word($COUNT5 $NICKLIST) $FILELIST[$COUNT6]
  3862. @ SENDTOT = SENDTOT + FILELENG[$COUNT6]
  3863. @ COUNT6  = COUNT6 + 1 
  3864. }
  3865. nnotice $word($COUNT5 $NICKLIST) $SENDTOT Bytes in $FILECOUNT file\(s\).
  3866. @ COUNT5 = COUNT5 + 1
  3867. }}
  3868.  
  3869. alias qpdcc {
  3870. if ( dccsent < dcclimit ) {
  3871. @EPARTS = EPARTS + 1
  3872. edcc $0-
  3873. }{
  3874. @QPARTS = QPARTS + 1
  3875. ^qdcc $0-
  3876. }
  3877. }
  3878.  
  3879. alias qdcc {
  3880. @ QNICK = 1
  3881. @ QFOUND = 0
  3882. while ( ( QNICK <= QNICKMAX ) && ( QFOUND == 0 ) )
  3883. {
  3884.  if ( [$1] == [$QUEUENICK[$QNICK]] )
  3885.   {
  3886.     @ QFOUND = 1
  3887.   }{
  3888.     @ QNICK = QNICK + 1
  3889.   }
  3890. }  
  3891.  
  3892. @ QSAME = 0
  3893.  
  3894. if ( QFOUND == 0 ) {
  3895.   @ QNICKMAX = QNICKMAX + 1
  3896.   @ QNICK = QNICKMAX
  3897.   @ QCOUNT[$QNICK] = 0
  3898.   @ QUEUENICK[$QNICK] = [$1]
  3899.   ^timer 3 _qinform $1 REPEAT
  3900. }{
  3901.  @ QFILE = 1
  3902.  
  3903.  while ( QFILE <= QCOUNT[$QNICK] ) {
  3904.     if ( [$QUEUEFILE[$QNICK][$QFILE]] == [$2] ) {
  3905.      @QSAME = 1
  3906.     }
  3907.     @ QFILE = QFILE + 1
  3908.   }
  3909.  if ( QSAME == 1 )
  3910.  {
  3911.    ^timer 1 pecho Queue: $2 is already in the queue for $1
  3912.    ^timer 1 nnotice $1 Queue: $2 is already in your queue.  It will be sent as slots open.
  3913.  }
  3914. }
  3915.  
  3916. if ( QSAME == 0 ) {
  3917.   @ QCOUNT[$QNICK] = QCOUNT[$QNICK] + 1
  3918.   @ QUEUEFILE[$QNICK][$QCOUNT[$QNICK]] = [$2]
  3919.   @ QUEUESPEED[$QNICK][$QCOUNT[$QNICK]] = [$3]
  3920. #  pecho Queuing: $QUEUENICK[$QNICK] \(Pri: $QNICK / $dcclimit\): $QUEUEFILE[$QNICK][$QCOUNT[$QNICK]] pos $QCOUNT[$QNICK]
  3921. }}
  3922.  
  3923. alias qcancel {
  3924. if ( [$0] == [] )
  3925. {
  3926.   pecho You must specify a nick to cancel or * to cancel it all.
  3927. }{
  3928. if ( [$0] == [] ) {
  3929.   @ QNICKMAX = 0
  3930.   pecho Entire queue deleted.
  3931. }{
  3932. @ QNICK = 1
  3933. @ QFOUND = 0
  3934. while ( QNICK <= QNICKMAX )
  3935. {
  3936.   if ( [$0] == [$QUEUENICK[$QNICK]] ) {
  3937.     @ QCOUNT[$QNICK] = 0
  3938.     @ QFOUND = 1
  3939.     pecho Deleting all files for $0
  3940.   }
  3941.   @ QNICK = QNICK + 1
  3942. }
  3943. if ( QFOUND == 0 )
  3944. {
  3945.   pecho $0 doesnt have any files in the queue.  Try /qlist.
  3946. }}}}
  3947.  
  3948. alias _qclean {
  3949. @ QNICK = 1
  3950. pecho QCleaning.
  3951. while ( QNICK <= QNICKMAX )
  3952. {
  3953.   if ( QCOUNT[$QNICK] == 0 ) {
  3954.     pecho Removed $QUEUENICK[$QNICK]
  3955.     @ QPRI = QNICK
  3956.     @ QNICKMAX = QNICKMAX - 1
  3957.     while ( QPRI <= QNICKMAX ) {
  3958.       @ QCOPY = QPRI + 1
  3959.       @ QUEUENICK[$QPRI] = [$QUEUENICK[$QCOPY]]
  3960.       @ QCOUNT[$QPRI] = QCOUNT[$QCOPY]
  3961.       @ QFILE = 1
  3962.       while ( QFILE <= QCOUNT[$QPRI] ) {
  3963.         @ QUEUEFILE[$QPRI][$QFILE] = [$QUEUEFILE[$QCOPY][$QFILE]]
  3964.         @ QUEUESPEED[$QPRI][$QFILE] = QUEUESPEED[$QCOPY][$QFILE]
  3965.         @ QFILE = QFILE + 1
  3966.       }
  3967.       @ QPRI = QPRI + 1
  3968.     }
  3969.   }
  3970.   @ QNICK = QNICK + 1
  3971. }
  3972. }
  3973.  
  3974. alias qlist {
  3975. @ QNICK = 1
  3976. if ( QNICKMAX == 0 ) {
  3977.   pecho The queue is empty.
  3978. }{
  3979.   while ( QNICK <= QNICKMAX )
  3980.   {
  3981.    @ QFILE = 1
  3982.    if ( QCOUNT[$QNICK] == 0 ) {
  3983.      pecho #$QNICK $QUEUENICK[$QNICK]\: Empty.
  3984.    }{
  3985.    if ( QCOUNT[$QNICK] == 1 ) {
  3986.      pecho #$QNICK $QUEUENICK[$QNICK]\: 1 file.
  3987.    }{
  3988.      pecho #$QNICK $QUEUENICK[$QNICK]\: $QCOUNT[$QNICK] files.
  3989.    }}
  3990.    while ( QFILE <= QCOUNT[$QNICK] )
  3991.     {
  3992.      pecho  File $[2]QFILE: $QUEUEFILE[$QNICK][$QFILE]
  3993.      @ QFILE = QFILE + 1
  3994.     }
  3995.    @ QNICK = QNICK + 1
  3996.   }
  3997. }
  3998. }
  3999.  
  4000. alias _qinform {
  4001. @ QNICK = 1
  4002. while ( QNICK <= QNICKMAX )
  4003. {
  4004.   if ( [$0] == [$QUEUENICK[$QNICK]] ) {
  4005.     fnotice $0 You are in queue position $QNICK of $QNICKMAX\.
  4006.     if ( [$1] == [REPEAT] ) {
  4007.       ^timer 120 _qinform $0-
  4008.     }
  4009.   }
  4010.   @ QNICK = QNICK + 1
  4011. }
  4012. }
  4013.  
  4014. alias _subqcheck {
  4015.   if ( QCOUNT[1] <= 0 ) {
  4016.     @ QPRI = 1
  4017.     @ QNICKMAX = QNICKMAX - 1
  4018.     while ( QPRI <= QNICKMAX ) {
  4019.       @ QCOPY = QPRI + 1
  4020.       @ QUEUENICK[$QPRI] = [$QUEUENICK[$QCOPY]]
  4021.       @ QCOUNT[$QPRI] = QCOUNT[$QCOPY]
  4022.       @ QFILE = 1
  4023.       while ( QFILE <= QCOUNT[$QPRI] ) {
  4024.         @ QUEUEFILE[$QPRI][$QFILE] = [$QUEUEFILE[$QCOPY][$QFILE]]
  4025.         @ QUEUESPEED[$QPRI][$QFILE] = QUEUESPEED[$QCOPY][$QFILE]
  4026.         @ QFILE = QFILE + 1
  4027.       }
  4028.       @ QPRI = QPRI + 1
  4029.     }
  4030.     ^assign -QCHECKING
  4031.   }{
  4032.     Userhost $QUEUENICK[1] -CMD if ([$4]!=[<UNKNOWN>]) {
  4033.       @ QTARGET = [$QUEUENICK[1]]
  4034.       @ QFNAME = [$QUEUEFILE[1][1]]
  4035.       @ QFSPEED = QUEUESPEED[1][1]
  4036.       pecho Offering queued file: $QFNAME to $QTARGET\.
  4037.  
  4038.       edcc SEND $QTARGET $QFNAME $QFSPEED
  4039.  
  4040.       @ QFILE = 1
  4041.       @ QCOUNT[1] = QCOUNT[1] - 1
  4042.       while ( QFILE <= QCOUNT[1] ) {
  4043.         @ QCOPY = QFILE + 1
  4044.         @ QUEUEFILE[1][$QFILE] = [$QUEUEFILE[1][$QCOPY]]
  4045.         @ QUEUESPEED[1][$QFILE] = QUEUESPEED[1][$QCOPY]
  4046.         @ QFILE = QCOPY
  4047.       }
  4048.       ^assign -QCHECKING
  4049.     }{
  4050.       @ QCOUNT[1] = 0
  4051.       _subqcheck
  4052.     }
  4053.   }
  4054. }
  4055.  
  4056. alias qcheck {
  4057. if ( (dccsent < dcclimit) && (QNICKMAX > 0) ) {
  4058.   if ( [$QCHECKING] != [YES] ) {
  4059.     ^assign QCHECKING YES
  4060.     _subqcheck
  4061.     ^timer 2 qcheck
  4062.   }
  4063. }}
  4064.  
  4065. alias qtimer {
  4066. qcheck
  4067. __listcheck
  4068. ^timer 10 qtimer
  4069. }
  4070.  
  4071. alias edcc {
  4072. iswaiting $1 $2
  4073. if ([$dccwaiting]==[yes]) {
  4074. pecho Already trying to send:\ Closing and Resending $2 to $1.
  4075. nnotice $1 Already trying to send:\ Closing and Resending $2.
  4076. ^dcs $1 $2
  4077. updatecount
  4078. }
  4079.  
  4080. if ([$dccwaiting]==[active]) {
  4081. pecho Already sending $1 $2.\
  4082. nnotice $1 Already sending you $2.\
  4083. }{
  4084.  
  4085. ^timer 0 //^dcc $0 $1 $2
  4086.  
  4087. if ([$0]==[SEND]) {
  4088. @ dccsent = dccsent + 1
  4089. # reminder message
  4090. ^timer 60 checksend $1 $2
  4091.  
  4092. # Don't let any transfers last longer than timelimit
  4093. if ( dcctimelimit > 0 ) {
  4094. @ secwait = dcctimelimit * 60
  4095. ^timer $secwait clampsend $1 $2
  4096. }
  4097.  
  4098. # Slow-dcc abort
  4099. if ( dccminspeed > 0 ) {
  4100. ^timer 3 checkspeed $1 $2
  4101. }
  4102. if ( [$3] != [] ) {
  4103. ^timer 3 checkspeed $1 $2 $3
  4104. }}}}
  4105.  
  4106. alias STATUSmcommand {
  4107. pecho +--------+ Current XDCC Configuration +--------+
  4108. pecho  Autoget Offered DCCs       $AUTOGET 
  4109. pecho  Autochat DCC CHATS         $AUTOCHAT 
  4110. pecho  Autovoice DCC in nick      $AUTODCCVOICE 
  4111. pecho  Autosend from List         $AUTOSEND 
  4112. pecho  Autoclose DCC SENDS        $AUTOCLOSE 
  4113. pecho  Overwrite existing files   $OVERWRITE 
  4114. pecho  AutoRename existing files  $AUTORENAME 
  4115. pecho  Files Offered              $TOTPACK 
  4116. pecho  Get Count                  $GETCOUNT 
  4117. pecho  Upload Directory           $UPLOADDIR 
  4118. pecho  Download directory         $DOWNLOADDIR 
  4119. pecho  Quiet                      $dccquiet 
  4120. pecho  Limit                      $dcclimit 
  4121. pecho  Minspeed                   $dccminspeed kb/sec 
  4122. pecho  Timelimit                  $dcctimelimit mins 
  4123. if ( dccqmax == 0 ) {
  4124. pecho  Qmax                       Unlimited 
  4125. }{
  4126. pecho  Qmax                       $dccqmax people 
  4127. }
  4128. pecho  Pstatus                    $pstatus 
  4129. pecho  Ptime                      $pminutes mins 
  4130. pecho  Pchannels                  $plisting\
  4131. pecho +----------------------------------------------+
  4132. }
  4133.  
  4134. alias __calcsize {
  4135. @ SIZECOUNT = 1
  4136. @ SENDTOTAL = 0
  4137. @ NUM = [$0]
  4138. if (NUM <= TOTPACK) {
  4139. while (SIZECOUNT <= ARRAYTOTF[$NUM])
  4140. {
  4141. @ SENDTOTAL = SENDTOTAL + ARRAYLENG[$NUM][$SIZECOUNT]
  4142. @ SIZECOUNT = SIZECOUNT + 1
  4143. }
  4144. @ BYTETOTAL = SENDTOTAL
  4145. @ SENDTOTAL = SENDTOTAL / 1000
  4146.  
  4147. if (SENDTOTAL >= 1000) {
  4148.  @ MEGTOTAL = SENDTOTAL / 1000
  4149.  @ LEFTTOTAL = MEGTOTAL * 1000
  4150.  @ SENDTOTAL = SENDTOTAL - LEFTTOTAL
  4151.  @ SENDTOTAL = SENDTOTAL / 100
  4152.  @ ARRAYSIZE[$NUM] = [\[$MEGTOTAL\.$SENDTOTAL\M\]]
  4153. }{
  4154.  if ( SENDTOTAL >= 1 ) {
  4155.   @ ARRAYSIZE[$NUM] = [\[$[-3]SENDTOTAL\k\]]
  4156.  }{
  4157.   @ ARRAYSIZE[$NUM] = [\[$[-3]BYTETOTAL\b\]]
  4158.  }
  4159. }}{
  4160. pecho __Calcsize: Error: Attmempt to compute for pack $NUM
  4161. }}
  4162.  
  4163. alias OFFERmcommand {
  4164. @ TMPVAR  = []
  4165. @ TMPDESC = []
  4166. ^assign TMPVAR $"[E/X] Files: "
  4167. if ([$TMPVAR])
  4168. { if ([$getdir()] == [OK])
  4169. { ^assign TMPDESC $"[E/X] Description: "
  4170. if ([$TMPDESC])
  4171. {
  4172. @ TOTPACK = TOTPACK + 1
  4173. @ COUNT = 1
  4174. @ SENDTOTAL = 0
  4175. while (COUNT <= FILECOUNT)
  4176. { @ ARRAYFILE[$TOTPACK][$COUNT] = [$FILELIST[$COUNT]]
  4177. @ ARRAYLENG[$TOTPACK][$COUNT] = [$FILELENG[$COUNT]]
  4178. @ ARRAYTOTF[$TOTPACK] = [$FILECOUNT]
  4179. @ ARRAYSPEED[$TOTPACK] = 0
  4180. @ COUNT = COUNT + 1
  4181. }
  4182.  
  4183. @ ARRAYDESC[$TOTPACK] = [$TMPDESC]
  4184. __calcsize $TOTPACK
  4185.  
  4186. ^assign -TMPNOTE
  4187. ^assign TMPNOTE $"[E/X] Note: "
  4188. if ([$TMPNOTE]) {
  4189. @ ARRAYNOTE[$TOTPACK] = [$TMPNOTE]
  4190. }{
  4191. @ ARRAYNOTE[$TOTPACK] = []
  4192. }
  4193.  
  4194. pecho $FILECOUNT\ file\(s\) added to Pack #$TOTPACK\.
  4195. chgst}{}
  4196. @ ARRAYSPEED[$TOTPACK] = 0
  4197. @ XDCCount[$TOTPACK] = 0 }
  4198. {/pecho One or more of these files don't exist.}}}
  4199.  
  4200. alias DOFFERmcommand {
  4201. if (TOTPACK > 0)
  4202. { @ TMPNUM = []
  4203. if ([$0])
  4204. {
  4205. ^assign TMPNUM $0
  4206. }
  4207. {
  4208. ^assign TMPNUM $"[E/X] Pack to remove (* for all): "
  4209. }
  4210. if ([$TMPNUM])
  4211. { if ([$TMPNUM] == [*])
  4212. { @ TOTPACK = 0
  4213. chgst
  4214. pecho All packs removed from offer list. }
  4215. { if ((TMPNUM <= TOTPACK) && (TMPNUM > 0))
  4216. { @ COUNT7 = TMPNUM
  4217. while (COUNT7 < TOTPACK)
  4218. { @ COUNT8 = ARRAYTOTF[${COUNT7+1}]
  4219. while (COUNT8 > 0)
  4220. { @ ARRAYFILE[$COUNT7][$COUNT8] = [$ARRAYFILE[${COUNT7+1}][$COUNT8]]
  4221. @ ARRAYLENG[$COUNT7][$COUNT8] = [$ARRAYLENG[${COUNT7+1}][$COUNT8]]
  4222. @ COUNT8 = COUNT8 - 1 }
  4223. @ ARRAYDESC[$COUNT7] = [$ARRAYDESC[${COUNT7+1}]]
  4224. @ ARRAYNOTE[$COUNT7] = [$ARRAYNOTE[${COUNT7+1}]]
  4225. @ ARRAYTOTF[$COUNT7] = [$ARRAYTOTF[${COUNT7+1}]]
  4226. @ ARRAYSPEED[$COUNT7] = [$ARRAYSPEED[${COUNT7+1}]]
  4227. @ XDCCount[$COUNT7] = [$XDCCount[${COUNT7+1}]]
  4228. __calcsize $COUNT7
  4229. @ COUNT7             = COUNT7 + 1 }
  4230. @ TOTPACK = TOTPACK - 1
  4231. pecho Pack #$TMPNUM removed from offer list.
  4232. chgst }
  4233. {/pecho Try a number between 1 and $TOTPACK\.
  4234. }}}{}}
  4235. {/pecho There are no files offered.
  4236. }}
  4237.  
  4238. alias AUTOGETmcommand {
  4239. if (match($0 ON OFF)) {/upp AUTOGET $0} 
  4240. pecho Autogetting of offered files is $AUTOGET\.
  4241. }
  4242.  
  4243. alias AUTOCHATmcommand {
  4244. if (match($0 ON ASK CLOSE)) {/upp AUTOCHAT $0} 
  4245. pecho Autoreceiving of chat requests is $AUTOCHAT\. (ON/ASK/CLOSE)
  4246. }
  4247.  
  4248. alias AUTODCCVOICEmcommand {
  4249. if (match($0 ON OFF)) {/upp AUTODCCVOICE $0} 
  4250. pecho Autovoicing of DCC nicks $AUTODCCVOICE\.
  4251. }
  4252.  
  4253. alias SECmcommand {
  4254. if (match($0 ON OFF)) {/upp SECURITY $0}
  4255. pecho XDCC Security is $SECURITY\.
  4256. }
  4257.  
  4258. alias AUTOSENDmcommand {
  4259. if (match($0 ON OFF)) {/upp AUTOSEND $0}
  4260. pecho Autosending from offer list is $AUTOSEND\.
  4261. }
  4262.  
  4263. alias nosign {
  4264. if (match($0 ON OFF)) {/upp NOSIGNVAR $0}
  4265. pecho Suppression of signon, signoff, join, and leave messages is $NOSIGNVAR\.
  4266. }
  4267.  
  4268. alias cstat {
  4269. if (match($0 ON OFF)) {/upp cstat $0}
  4270. pecho Changing the status line is $cstat\.
  4271. }
  4272.  
  4273. alias AUTOCLOSEmcommand {
  4274. if (match($0 ON OFF)) {/upp AUTOCLOSE $0}
  4275. pecho Autoclose offered files \(refuse send\) is $AUTOCLOSE\.
  4276. }
  4277.  
  4278. alias AUTORENAMEmcommand {
  4279. if (match($0 ON OFF)) {/upp AUTORENAME $0}
  4280. pecho AutoRenaming of existing offered files is $AUTORENAME\.
  4281. }
  4282.  
  4283. alias OVERWRITEmcommand {
  4284. if (match($0 ON OFF)) {/upp OVERWRITE $0}
  4285. pecho Overwrite existing files \(no prompting\) is $OVERWRITE\.
  4286. }
  4287.  
  4288. alias ULDIRmcommand {
  4289. if ([$0]) {^assign newdir $0}
  4290. {^assign newdir $"[E/X] New upload directory: " }
  4291. if ([$newdir]!=[]) {
  4292. ^assign olddir $W
  4293. ^cd $newdir
  4294. ^assign uploaddir $W
  4295. ^cd $olddir
  4296. ^assign -olddir
  4297. }
  4298. ^assign -newdir
  4299. pecho Upload directory: $uploaddir\.
  4300. }
  4301.  
  4302. alias DLDIRmcommand {
  4303. if ([$0]) {^assign newdir $0}
  4304. {^assign newdir $"[E/X] New download directory: " }
  4305. if ([$newdir]!=[]) {
  4306. ^assign olddir $W
  4307. ^cd $newdir
  4308. ^assign downloaddir $W
  4309. ^cd $olddir
  4310. ^assign -olddir
  4311. }
  4312. ^assign -newdir
  4313. pecho Download directory: $downloaddir\.
  4314. }
  4315.  
  4316. alias x_file {
  4317. ^assign TMP $0
  4318. if (rindex(/ $TMP))
  4319. { @ function_return = right(${@TMP-rindex(/ $0)+1} $0) }
  4320. { @ function_return = [$0] }
  4321. }
  4322.  
  4323. alias adddccrequest {
  4324. @ GETCOUNT = GETCOUNT + 1
  4325. @ ARRAYFILEGET[$GETCOUNT] = [$0]
  4326. @ ARRAYNICKGET[$GETCOUNT] = [$1]
  4327. chgst
  4328. }
  4329.  
  4330. alias CLOSEmcommand {
  4331. if (GETCOUNT > 0)
  4332. { @ TMPNICK = []
  4333. ^assign TMPNICK $"[E/X] Nick to remove get files (* for all): "
  4334. if ([$TMPNICK])
  4335. { if ([$TMPNICK] == [*])
  4336. { @ GETCOUNT = 0
  4337. foreach ARRAYFILEGET XX
  4338. { //^dcc close get $ARRAYNICKGET[$XX] }
  4339. chgst
  4340. pecho All files removed from get list. }{
  4341. @ COUNT8 = 1
  4342. @ COUNT9 = 1
  4343. @ COUNT10 = GETCOUNT
  4344. while (COUNT9 <= COUNT10)
  4345. { if ([$ARRAYNICKGET[$COUNT9]] != [$TMPNICK])
  4346. { @ ARRAYFILEGET[$COUNT8] = [$ARRAYFILEGET[$COUNT9]]
  4347. @ ARRAYNICKGET[$COUNT8] = [$ARRAYNICKGET[$COUNT9]]
  4348. @ COUNT8 = COUNT8 + 1 }
  4349. { //^dcc c